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ABSTRACT 

The United States Marine Corps accomplishes its mission “to put the right 
Marine in the right place at the right time with the right skills and quality of life” 
in a variety of ways. One of the information systems assisting the Marine Enlisted 
Assignments branch is the Recruit Distribution Model (RDM). This thesis proposes 
changes to the RDM user interface, data management, assignment model, and anal- 
ysis capability. With the use of business process reengineering, process modeling, 
mathematical modeling, and database design a fully functional prototype has been 
developed to address each identified change proposal. This reengineered system in- 
cludes numerous innovations such as an intuitive navigational scheme using switch- 
boards, and the elimination of manual data entry for data already available in the 
system. It also provides a number of significant contributions beneficial to the USMC. 

For instance, the reengineered system allows the user to objectively analyze different 
results by comparing four different objective measures, and its mathematical model 
uses commercial-off-the-shelf products eliminating a proprietary solver. All these 
changes will empower managers to effectively and efficiently manage the assignment 
of recruits in order to meet the challenges of the 21st century. 
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I. 



INTRODUCTION 



A. THESIS PURPOSE 

The main pmpose of this thesis was to reengineer a United States Marine 
Corps’ Manpower Assignment model concerned with the distribution of recruits to 
schools. This model is called the Recruit Distribution Model (RDM) [Ref. 1]. 
Throughout this thesis, the RDM is addressed as either RDM or the old system. 

Additionally, an important purpose of this thesis was to build a functional pro- 
totype of the reengineered RDM. The new system is called the Recruit Distribution 
Decision Support System (RDdss). It demonstrates the functionality of the reengi- 
neered RDM. Throughout this thesis, the RDdss is addressed as either RDdss or the 
new system. 

The majority of this thesis is devoted to a discussion of the RDdss. As nec- 
essary, the RDM is discussed. The following section is a general discussion designed 
to set the stage for understanding the rest of the thesis. It provides a problem de- 
scription of recruit distribution in the United States Marine Corps (USMC). The last 
section of this chapter discusses the significant contributions of this thesis. 

B. GENERAL PROBLEM DESCRIPTION 

Recruit distribution in the USMC is the process that assigns recruits to an 
entry level school (ELS) leading to a military occupational specialty (See Figure 1). 
These assignments are made about 48 times a year, during the last week of Marine 
Corps Recruit Depot (MCRD) training. In this ending period of the MCRD, the 
recruits are facing the “Crucible,” which is the final wicket a recruit endures before 
officially becoming a Marine. Consequently, the use of the titles recruit and Marine 
are used interchangably in this paper. 

For at least two reasons, this assignment process is a critical manpower func- 
tion. First, a Marine’s military occupational specialty (MOS) ultimately determines 
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the member’s career. Therefore, it is in the best interest of both the Marine and 
the USMC that a school assignment matching the Marine’s desire is made. Second, 
the success obtained by a service member during his or her time in the USMC is 
partially based upon successful completion of their ELS, where a pattern of success 
is established. Therefore, a school assignment maximizing the chances of the Marine 
completing their training is important. So, fulfilling the Marine’s desire and matching 
him or her to an MOS (i.e. ELS) that fits their personal characteristics is critical to 
the overall health of the USMC, making the assignment process a critical manpower 
function [Ref. 2]. 

Fulfilling the desire of the Marine is accomplished through the use of a contract 
guarantee. This is called a program enlisted for (PEE), and is specified during the 
recruiting process. For instance, a PEE = 19 is the “Tank and Assault Amphibian 
Option.” There are currently two ELS’s associated with this, “MlAl Tank Crewman” 
and “Assault Amphibian Crewman.” So, a Marine who chose the PEE = 19 is a 
possible candidate for these two schools and no others. 

Once the Marine’s school options axe known, a Marine-to-school fit is deter- 
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mined for each of these schools (See Chapter III, Section B for details). This fitness 
determination is partly made by looking at each ELS’s minimum eligibility require- 
ments, which are call mandatory properties. This term “property” is used as defined 
by Webster’s Ninth New Collegiate Dictionary: “a quality or trait belonging and 
especially peculiar to an individual or thing.” Examples are Age > 18, Clerical >= 
80, and Electrical >=95. The meaning of the first example is obvious. The other 
two are based on test scores from the Armed Services Vocational Aptitude Battery 
(ASVAB) test. 

In addition to the mandatory properties, most schools also specify desirable 
properties. A desired property is the same as a mandatory property, except they 
are not prerequisites for attending the school. For example, the Traffic Management 
Coordination school desires Marines with a Clerical score of at least 100. So, a desired 
property of Clerical >= 100 is specified for this ELS. 

By using the information obtained from the PEF, mandatory and desired 
properties, a fitness matrix is generated. This shows the fit of every Marine to every 
school he or she is eligible for. Since there are about 100 schools and on average 700 
Marines considered for every run, this matrix has the potential of 70,000 matches. 

However, the matrix size is actually bigger. This is because each of the schools 
is broken down by classes. Some ELS’s have a class starting each week, others every 
month, and others every quarter. Over a given year, these classes total about 1,800. 
Following the practice of the USMC, only the classes over the next 3-4 months are 
considered during the assignment process (see Figure 2). Therefore, the fitness matrix 
is increased to a potential size of 350,000. 

The fact that the school classes start at different times throughout the year 
and that the assignment process is only conducted 48 times a year (normally this 
occurs on friday) causes the “3-month look ahead” in the model and has implications 
important to the USMC. The concern is school seats which never get filled. Each 
seat is prepaid, guaranteeing its availability to the USMC. This means every vacant 
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spot is potentially a lost resource to the USMC. Therefore, in addition to the Marine- 
to-school fitness concern, there is also the concern of filling all available school seats 
before their report date is passed. 

Another concern is the problem of unassigned Marines. There are numerous 
reasons why they may not get assigned. Maybe the only school class the Marine 
was eligible for is already full. Or, possibly he or she is not qualified for any of the 
school’s promised by their PEF. A third possibility is errors in the data provided 
to the assignment process. Regardless of the cause, it requires identification and 
corrective action. 

Finally, a discussion of the internal and external stakeholders associated with 
the USMC recruit distribution is given. Internally, there are the USMC and the 
recruits. Since their concerns were discussed above, they are not given any further 
consideration. Externally, there is the contractor Decision Support Associates, Inc. 
(DSAI) who has maintained and upgraded the RDM for over 30 years. They also 
maintain about eight other major systems for the USMC. For their services, the 
USMC pays a significant amount of money each year. Additionally, DSAI has pro- 
prietary software in some of these systems, which has locked-in the USMC to this 
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company. Besides the contractor, there is one last significant stakeholder, the Amer- 
ican taxpayer. In a time of increasing fiscal constraints and shrinking budgets, it is 
imperative that wise decisions are made in regards to assigning Marines to ELS’s. 
The American taxpayers expect nothing less. 



C. SIGNIFICANT CONTRIBUTIONS 

Four significant contributions beneficial to the USMC have been made in this 
thesis. A detailed discussion of these is given throughout the next three chapters. 
Here, we list and summarize the contibutions. 

• Analysis and articulation of the recruit distribution process - by interviewing 
USMC and DSAI personnel, reviewing available documentation, and oper- 
ating the RDM we were able to articulate an understanding of the recruit 
distribution process using IDEF process modeling. Additional data modeling 
was articulated in a third normal form relational schema [Ref. 3] . 

• Development of a mathematical model - by analyzing the assignment process, 
criteria, and constraints, USMC policies and objectives, a mathematical model 
for the new system was developed. 

• Fully functional prototype - an intuitive and easy to understand new sys- 
tem that seamlessly interfaces with the old system was built. It provides an 
objective means of comparing assignment results of both systems, and was 
developed using commercial-off-the-shelf (COTS) software applications. 

• Elimination of the proprietary solver and associated contractor lock-in - this 
was accomplished by replacing the proprietary solver with two COTS appli- 
cations. 
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II. REENGINEERING MOTIVATIONS 
AND PROCESS VIEW 



The RDM has a number of limitations which motivated the USMC to reengi- 
neer it. We start this chapter by listing and describing each identified limitation. 
Then, to develop a better understanding of recruit distribution in the USMC, two 
different process views are examined. The first is concerned with the RDM operating 
environment, and the second is concerned with the first level of the RDdss IDEFO 
model. 

A. LIMITATIONS OF OLD SYSTEM 

Throughout this reengineering effort, a number of limitations of the old system 
have become apparent. Many of these limits were recognized earlier, and were part of 
the USMC’s motivation to reengineer the RDM. The following is a list of the identified 
limitations of the old system. 

• Navigation 

• Data management 

• Assignment procedure 

• Transaction processing approach 

A description of each limitation is now given. 

1. Navigation 

Navigating through the RDM is not intuitive. It is neither obvious where one 
should start or where one should go. Navigation is accomplished by initially selecting 
an option from one of the main display’s drop down menus. This normally results in a 
window appearing on the computer’s desktop. Then, by pointing and clicking on the 
displayed window’s buttons, further navigation is accomplished. After working with 
the RDM for a number of hours, we were able to navigate through the application 
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to find and display specific windows. However, after a week or two of not using 
the system, we had difficulty finding our way around again. In the RDdss, we have 
created an intuitive navigational scheme using switchboards. 

2. Data Management 

Data management in the RDM is poor, leading to the introduction of numerous 
errors. The biggest problem in this regard deals with data entry. The RDM violates 
the basic rule of never requiring the user to enter data already in the system [Ref. 4]. 
For example, creating a new school in the RDM requires the user to type data into 
seven different data fields. Only the course identification number has been automated 
by a drop down list. In the RDdss, when creating a new school we have reduced the 
manual data entry to one field. 

3. Assignment Procedure 

There are at least five limitations associated with the old system’s assignment 
procedure. It 

• is encoded into proprietary software, 

• examines schools sequentially, rather than globally, 

• makes assignments based on school priority rather than weights, 

• attempts to maximize fill rather than fit-and-fill, and 

• is relatively inflexible. 

The solver performing these assignments was designed back in the 1950’s, 
where the major concern was speed and using the minimal amount of memory. It 
is written in Fortran, and is proprietary code owned by DSAI. It does not search 
repetitively for an optimal solution by trying to maximize or minimize an objective 
function. Instead, it maximizes the fill of prioritized school seats. In the RDdss, we use 
a well know algorithm called CPlex [Ref. 5]. After conducting around 600 iterations 
of comparing 344 Marines to 576 school classes, it produces an optimal solution. Its 
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objective function was written to make the assignment procedure flexible. It allows 
the RDdss manager to “game” the system by making fit-and-fill trade-offs, until a 
“good” solution is found. 

4. Transaction Processing Approach 

Finally, the old system follows a transaction processing approach, vice a de- 
cision support approach [Ref. 6]. This is partially due to the inflexibility of the 
solver. However, another contributor is the extreme difficulty in comparing one run 
to another. Other than providing a means for manually computing the numerical 
difference in Marines assigned, the RDM provides little insight or information views 
for comparing runs. This is because there is no way to objectively compare one run 
to another. As it is now, if the RDM manager launches the assignment model and 
everybody is assigned, the result becomes the approved assignments. In the RDdss, 
we have created an entire process devoted to providing insightful analysis of a given 
run (See Chapter IV, Section D for details). Its purpose is to support the making of 
wise assignment decisions. 

B. A PROCESS VIEW 

To develop a better understanding of recruit distribution in the USMC, two 
different process views are now examined. The first is concerned with the current 
operating environment of the old system. The goal is to develop a big picture view 
of this process. For those interested in further study of the old system. Appendix A 
contains the RDM business process IDEFO model. 

The second process view examined concerns the first level of the RDdss busi- 
ness process IDEFO model. The goal is to develop a better understanding of the 
new system, without going into great detail. This lays a good foundation for the 
RDdss discussions in the remainder of this thesis. Appendix B contains the entire 
IDEFO model of the new system. 
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Figure 3. Current Recruit Distribution Operating Environment 

1. Recruit Distribution Model Operating Environ- 
ment 

Figure 3 graphically depicts the operating environment of the USMC recruit 
distribution. At the top are the pohcy makers, who forecast and decide how many 
recruits and corresponding school seats are needed over the next few years. In addition 
to this, they determine how many PEF’s or school guarantees to make available for a 
given year. Currently, about 65-70% of the recruits enter the USMC with a quarantee. 
The recruit and PEF authorizations for the following year are given to the USMC 
recruiters, and the school seats or quotas determined for the following years is input 
into the By Name Assignment (BNA) system. 

The recruiters use the recruit and PEF authorizations in recruiting from the 
general public. Once a potential candidate is found they take the ASVAB, if they have 
not already done so. Based on the results, the recruiter can offer different quarantees. 
Once the candidate signs a contract with the USMC, their test scores, PEF, and other 
personal information such as age and height are entered into the Automated Recruit 
Management System (ARMS). 

Both the ARMS and BNA systems utilize large main frame databases. They 
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serve as central repositories for maintaining data on many aspects dealing with the 
USMC. Keeping this information stored in one location ensures everyone is using the 
same data, providing consistency for all users. One user is the RDM manager, who 
retrieves recruit and school information from these systems for use in the RDM. 

Additionally, the RDM receives data from two other sources. The MCRD 
instructors provide special assignment inputs. These are personnel identified as having 
the talents or abilities well suited for a particular school. The other data comes from 
the MCT. They provide the RDM manager with reclassification information. For 
instance, a Marine is reclassified if he or she is injured during MCT and is unable to 
make the start date of their assigned ELS. 

All this recruit and school data is input into the RDM, where it is stored 
in the Military Operational Data Store (MODS). The model is then run. Once a 
satisfactory set of assignments is obtained, the RDM manager uploads the approved 
assignments to the ARMS and BNA systems. From this assignment information, the 
MCRD generates orders for the Marines graduating from the MCRD. 

2. New System Level 0 Diagram 

Focus is now shifted to the examination of the first process level of the RDdss. 
Looking any deeper will provide more detail than is necessary at this point. As 
mentioned earlier, the intent is to lay the foundation for the RDdss discussions in the 
remainder of this thesis. 

Figure 4 shows the level 0, or context diagram of the RDdss. The program 
used to generate this illustration was BPWin, which is based on IDEFO modeling. 
Consequently, all arrows entering from the left are considered “inputs,” arrows enter- 
ing from the top are “controls,” arrows exiting to the right are “outputs,” and arrows 
entering from the bottom are “mechanisms.” A convenient acronym for this is ICOM 
[Ref. 7]. 

• I = Input: something consumed in the process 

• C = Control: a constraint on the operation of the process 
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Figure 4. RDdss Process, Level 0 Diagram 



• O = Output: something resulting from the process 

• M = Mechanism: something used to perform the process, but is not itself 
consumed 

There are three inputs to the RDdss, the BNA extract, the RDl file, and the 
special assignments/reclassifications. The first of these contains a set of school class 
quotas covering a 120 day period. This comes to the RDdss manager as a fixed-width 
delimited text file. The RDl file contains the data for the recruits soon to graduate 
from the MCRD. It also is a fixed- width delimited text file. The special assignments 
and reclassifications are the recruits identified with special abilities or talents and the 
Marines requiring reassignment to a different school class, respectively. This last data 
comes to the RDdss manager as a memo and not a text file. 

The only control is the database (or Military Operational Data Store) used to 
store the data for the RDdss. Among other things, the MODS contains the informa- 
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tion specifying the eligibility requirements for each of the schools. This is why it is 
considered a control. It contains the data controlling or constraining the assignment 
of Marines to schools. 

Besides the approved assignments that were mentioned earlier, the output con- 
sists of graphs, reports, and query results. Each graph was designed to provide insight 
into the current assignment result, plus provide a means for comparing different runs. 
The reports provide a print-out of information the RDdss manager might find useful. 
For instance, an approved assignment report and an unassigned Marine report are 
both available. The query results provide different views of the data in the MODS. 
For instance, one of the queries provides a listing of the fitness scores of all schools a 
Marine is eligible for. 

Finally, the two mechanisms of the RDdss are the RDdss manager and the 
commercial-off-the-shelf (COTS) application AMPLPlus. Both of these entites are 
necessary to make the system work, and are not consumed by the process itself. 
This is why they are considered mechanisms. The RDdss manager is the one who 
points and clicks on the buttons of the RDdss, making it operate. AMPLPlus is the 
application containing the mathematical model used in making optimal Marine-to- 
school assignments. It interfaces with the CPlex algorithm that actually performs 
the optimization. 
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III. MODELING THE RECRUIT 
DISTRIBUTION PROBLEM 



We model the recruit distribution problem as an assignment problem. Various 
submodels are developed to compute input paramters and perform other preprocess- 
ing steps for the assignment model, which optimally assigns recruits to a school class. 
Following is a discussion of important points concerning the recruit distribution prob- 
lem. 

1. Schools and Classes: there are about 130 schools per fiscal year, which are 
broken down by classes (about 1800 classes per fiscal year). Classes of the 
same school, commencing on different dates, are identical. However, a class 
commencing soon after a recruit is available for training has greater utility 
than another class starting at a later date. On average, there are 600 classes 
in a run. 

2. Program Enlisted For (PEF) 

(a) 65-70% of enlistees enter the USMC under a guarantee (or PEF). The 
remaining recruits enter under an open contract (PEF=00). 

(b) A recruit can be assigned only to schools associated with his or her PEF. 
Some PEF’s are associated with one school, while others are associated 
with many schools. 

A. OPTIMIZATION OBJECTIVES: FIT AND FILL 

Our approach in the assignment model is to optimize by looking at both fit 
and fill. The importance of both these objectives was discussed in Chapter II, Section 

B. The idea is to allow the RDdss manager to make a tradeoff between fit and fill. 

The high-level objective function is: 



• Maximize 



Ki ■ Fitness — K 2 ■ Penalty 



Where K\ is the fitness coefficient and K 2 is the fill coefficient. 
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By assigning different values to these coefficients, the RDdss manager is able 
to make trade-offs between fit and fill. This capability makes the assignment model 
fiexible. It provides the RDdss manager a means for “gaming” the system. 



B. MEASURING FITNESS 

The first half of the high-level objective function deals with maximizing the 
fitness of Marines to schools. Therefore, we cover this topic now. Following is a 
discussion of important points concerning the measuring of fitness. 

1. Marines are only eligible for assignment to schools corresponding to their PEF 
guarantees. 

2. Associated with each school are specific mandatory properties, or minimum 
eligibility requirments (e.g. AGE > 18). 

3. Eligibilty of a Marine to a school is pre-determined by comparing a Marine’s 
attributes (e.g. Age = 20) to the school’s mandatory properties. A Marine is 
eligible only if he or she meets all the minimum school requirements. 

4. Many schools also have desirable properties associated with them. This is 
a property which is desired in a Marine (e.g. Height > 65 inches), but are 
not prerequisties for attending the school. Since some desirable properties 
are more desirable than others, a means of distinquishing the properties is 
necessary. We have followed the Marine Corps practice of using 6 levels of 
desirability. Level 1 properties are the most desired, followed by level 2, etc. 

5. Let V{s) denote the set of desirable properties for school s, and let level{p) 
denote the desirability level of property p. Let possesses^m,p) = 1 if Marine m 
possesses property p (0 otherwise). Further, let Scoreievei{p) (> 0) be the score 
assigned for possessing a level{p) property, where Scoreievei(j>) is calculated 
using an exponential function inversely proportional to level{p). The scores 
for levels 1 through 6 are shown in Figure 5. 

6. The total fitness score {fitm,s) of Marine m to school s is composed of two 
parts; the score {ManScorem,s) for possessing mandatory properties, and the 
score {DesScorem,s) for possessing some or all of the desirable properties. 

Our procedure for computing fitness scores is designed in a manner that, for 
each school, the average fitness score — with the average computed over all 
qualified Marines, i.e. Marines who have met the mandatory properties — 
is constant (i.e. 100). The reason we did this was to ensure each school 
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Figure 5. Exponential Function for Calculating Scoreievei{p) 



received equal treatment in the model, regardless of the number of desirable 
properties specified for each school. Otherwise, all other things being equal, 
the school with the greatest number of desirable properties would receive the 
most assignments. 

7. For each school s, percentage weights ManWtg and DesWtg are assigned, 
respectively, for the mandatory and desirable properties. For example, for 
school si, a weight of 70% may be assigned to the mandatory properties and 
30% for the desirable properties. 

8. A Marine possessing all mandatory properties for school s is given an initial 
score ManScorem,s — ManWtg • 100. Marines who do not possess all manda- 
tory properties for a school are given an overall fitness score of 0 for that 
school. 

9. Of all the Marines possessing the mandatory properties, those possessing de- - 
sirable properties are awarded additional points, which are weighted by the 
level of the property. The Marine’s score for desirable properties is computed 
as follows: 

• The absolute score Absm,s, for Maxine m and school s, based on desirable 
properties is 



AbSm,s = Scoreievei{p) • possesses{Tn,p) 

p€V(s) 

The average of these absolute scores is computed over all qualified Marines. 
Let AveAbSg denote the average absolute score for school s. 
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• Each Marine’s fitness score for desirable properties is then computed as a 
fraction of this average, and normalized by multiplying with the percentage 
weight for desirable properties. That is, DesScoTtm^s is a weighted relative 
score: 



DesScorCjns — (~; 7 ^) • I^esWts • 100 

’ AveAbSs 

The overall average of all these scores is, due to the above construction, 
DesWtg • 100. 

10. The final fitness score, fitm,s is simply the sum ManScorem,s + DesScorem,s- 
It may be seen that, for each school, this number averages (over all the qualified 
Marines for that school) to 100. 

11. As mentioned earlier, schools are broken down by classes that are identical, 

except for their start dates. Therefore, let fitm,s = for each class c of 

school s. 

C. MEASURING FILL 

The second half of the objective function deals with maximizing the fill of 
school seats. We now turn our attention to this topic. 

As we discussed in Chapter II, school seats are paid for in advance. This 
is to guarantee the seat is available to the USMC. Consequently, every vacant spot 
is potentially a lost resource. Since the model is run about once every week, the 
biggest concern is the unfilled seats having report dates within the next seven days. 
Conversely, a seat having a report date in three months is not so critical. 

To capture the essence of filling school seats with early report dates, we use 
a penalty function. The idea is simple. School seats having an early report date get 
a high penalty, and those having a late report date get a low penalty. A number of 
functions would have worked for this. We have graphed two candidates in Figure 6. 
The first is a linear function and the second a large-step function. Each of these was 
tried in the prototype. In our opinion the latter one is the best choice. It gives a lot 
of emphasis to the first week, plus it treats all schools having report dates within the 
same week equally. It is the function currently implemented in the rddss. 
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Figure 6. Two Candidate Penalty Functions 

D. ASSIGNMENT MODEL 

We are now ready to formally describe the assignment model. We will first 
specify the model’s assumptions. Then, we will list the model’s notation, followed by 
its objective function and constraints. 

1. Assumptions 

1. Each school is unique and identifies a single course of instruction leading to 
an MOS. 

2. In any given run, a school may offer several classes that start on different 
dates. It is more desirable to fill seats in cl8isses starting earlier. Such classes 
have a higher penalty per unit shortfall than similar classes starting at a later 
date. 

3. All Marines available for assignment are graduating from the MCRD on the 
same date. 

4. A Marine’s eligibility for a school, as well as the fit for each school, is deter- 
mined by the model preprocessor, taking into account the PEF guarantees, 
and the mandatory and desirable properties. 

5. A Marine is assigned to a school corresponding to their PEF code, or not at 
all. 

6. It is better to leave a Marine unassigned than to overfill a school. 
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7. The demand for the number of Marines to be trained in each school class is 
determined by looking at the BNA extract. This demand statement is already 
constrained by the capacity constraint at each school. 

2. Notation 

• Sets 

A4 : Marines 
C : Classes 

• Exogenous Variables (Parameters in AMPL) 

the desirability of assigning Marine m to class c (note; the fitness 
score is zero for Marine-class pairs where either the Marine does not 
meet the classes mandatory properties, or where the class does not 
fulfill the Marine’s PEF guarantee.) 

demandc- demand for Marines to be trained at class c 

penaltUc'. penalty for each unit of demand not met (higher value means 
it is more critical to fill the class) 

• Decision Variables 

^m,c (binary integer): 1, if Marine is assigned to the given class; 0 other- 
wise 

3. Objective 

Maximize the Total Utility: (Total Reward - Total Penalty) 

TU = /ci ( ^ XI /^W • ^m,c ) - h I XIpena/tyc • [demandc - XI ^m,c) 1 (HI.l) 

VceC meM / \c€C meM / 

4. Constraints 

• assignment Limit: a Marine is assignable to at most one school 

XI^m,c<l Vm (III.2) 

cec 

• eligibility: a Marine is only assignable to a class they are fit for (this prevents 
assigning Marines with a fitness score of zero) 

< fitm,c Vm Vc (III.3) 
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• capacity: since penalties apply only if there is a positive shortfall, the objec- 
tive function would be non-linear. To avoid that, we assume we will never 
oversupply Marines to schools, resulting in: 

^ ^m,c < demandc Vc (HI-4) 
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IV. A DECISION SUPPORT SYSTEM FOR 
RECRUIT DISTRIBUTION 

/ 

A. ARCHITECTURE AND IMPLEMENTATION 

Following is a discussion of the RDdss architecture and its implementation. 
First, the eirchitectural components are discussed. Then, the steps taken to build the 
RDdss are described. 

1. Architecture 

The architecture of the RDdss is depicted in Figure 7. This illustration shows 
how the six major components of the system are related. We will describe this archi- 
tecture by examining each component in the following order: switchboard, relational 
database, preprocessor, assignment model, solver, and analyzer. 

The switchboard is one of two components providing an interface between the 
user and the RDdss. It is the mechanism by which the user controls the operation of 
the system. Figure 8 illustrates the main switchboard of the RDdss. It is displayed 



Solver: 

CPlex 



Assignment 
data 



Formatted 
input data 



Switchboard: 

Access 97 



Analyzer: 

Access 97 



User Interface Components 



Preprocess 
& execute 
model 



Assignment 

Model: 

AMPLPlus 



Preprocessor: 

Access 97 



Modeling Components 




Import and maintain 
Review and marine & school 

export result \ 



Assignment 
table & metrics 



Marine & school 
data 



Relational 
Database: 
Access 97 



Figure 7. RDdss Architecture 



23 




Figure 8. RDdss Main Switchboard 

when the application is started. As this illustration depicts, the user can perform the 
following functions by simply pointing and clicking on the appropriate button; import 
and export data, maintain data, preprocessing and execution of the assignment model, 
analyze results, query data, and generate reports. All the RDdss switchboards were 
generated using Access 97. 

The relational database technology was used in the RDdss [Ref. 8]. The 
actual table relationships are shown in Figure 9. These tables were developed in 
Access 97, which uses the relational technology. In addition to a few flat flies used to 
communicate with the assignment model, all the data for the RDdss is stored in this 
database. 

The preprocessor is one of the two modeling components. It consists of Access 
97 Visual Basic for Applications (VBA) code that computes information necessary 
for the assignment model [Ref. 9]. It determines the demand of each class, the 
appropriate penalty associated with each class, and the Marine-to-class fitness matrix. 
The code for these assignment model inputs is found in Appendix D, lines 452-516 
and 4305-4812. 
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Figure 9. RDdss Relational Schema 



The assignment model is the other component of the modeling components. It 
has been modeled in AMPL [Ref. 10], a language and a computing environment for 
expressing, solving, and analyzing mathematical programming problems (minimizing 
or maximizing a function of decision variables, subject to constraints on the variables). 
A complete discussion of the assignment model’s math model is available in Chapter 
III, Section D. 

The next component is the solver. It communicates directly with AMPL, the 
modeling language of AMPLPlus. As mentioned in Chapter II, it uses an algorithm 
called CPlex, which is an optimization package for linear, network and integer pro- 
gramming. Working in conjunction with AMPLPlus, the solver finds an optimal 
solution. 

The final component is the analyzer. It is the other component making up the 
user interface. This is where the RDdss manager analyzes assignment results, seeking 
insights for developing a “good” solution. Insight is developed mostly by the graphs 
and numerical information available in the analyzer. These were generated in Access 
97 using its report generator and VBA code. The programming used in the analyzer 
is shown in Appendix D and includes lines 1-310, 2156-2214, and 3756-3827. 
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Figure 10. RDdss Demonstration Solver 

2. Implementation 

Building the RDdss was an iterative process. Some steps took numerous it- 
erations, and some were straightforward. Below is a listing of the 14 major steps it 
took to build the RDdss. 

1. Analyzing the current system was the first step. This included 1) interviewing 
USMC and DSAI personnel, 2) reviewing available documentation, and 3) 
operating the RDM. 

2. After gathering the current system data, it was necessary to develop a logical 
understanding of the system. This was accomplished by modeling it with 
BPWin. Appendix B is the result of this step. 

3. With this system understanding, it was possible to envision how the new 
system would make assignments. Using standard optimization techniques [Ref. 
11], a small-scale demonstration solver was built using Excel 97. It is shown 
in Figure 10. 

4. Combining the system understanding and the data requirements for the demon- 
stration solver, it was possible to envision a data structure for the reengineered 
system. This lead to the development of a third normal form relational schema 
for the RDdss [Ref. 3j. 
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Figure 11. RDdss Decomposition Diagram 

5. Using the relational schema as a model, the RDdss tables were built in Access 
97. The results of this were seen earlier in Figure 9. 

6. As the vision for the reengineered system came more into focus, an intuitive 
navigational scheme was conceived. This lead to the development of a decom- 
position diagram for the RDdss. It is, demonstrated in Figure 11. 

7. Using the decomposition diagram as a model, the user interface was built for 
the RDdss in Access 97. The Main Switchboard was seen earlier in Figure 8. 

8. With the switchboards now in place, VBA coding was commenced [Ref. 9]. 
This made each switchboard functional and useful. 

9. Building upon the concept of the demonstration solver from step 3, a for- 
mal mathematical assignment model for the RDdss was developed. This was 
introduced in Chapter III, Section D. 

10. The COTS applications, AMPLPlus and CPlex were installed on the personal 
computer containing the RDdss. 

11. With AMPLPlus now installed, it was possible to code the assignment model 
into the application. This made it possible to verify our design. 

12. Manually creating input files for AMPLPlus is time consuming. So, the pre- 
processor was coded. This automated the generation of the class demand, 
class penalty, and Marine-to-class fitness matrix. 

13. Further automation of the RDdss was accomplished by interfacing Access 97 
and AMPLPlus. This required both VBA and AMPL coding. The end result 
was a seamless operation of the two applications. 



27 




Figure 12. Actual RDdss Build Sequence 



14. Finally, much thought was given to ways of gaining insight into the assignment 
results. This lead to the development of the analyzer, which was discussed 
briefly in the previous section. 

Some of these steps were performed in parallel. The actual order followed in 
building the RDdss are depicted in Figure 12. 

B. USING THE RECRUIT DISTRIBUTION DECISION 
SUPPORT SYSTEM 

In this section, we will discuss using the RDdss. Three aspects are covered, 1) 
setting up a run, 2) model execution, and 3) customizing a run and results. Each is 
discussed in the order given here. 

1. Setting up a Run 

Setting up a run of the RDdss is straightforward and easy to do. Figure 13 
graphically illustrates the steps involved. Starting with step 1 on the graph and 
working through to step 3d(iii), we will discuss a run set-up. 

The RDdss manager starts at the top of the Main Switchboard. Here, he or 



28 



Si RDMn Main Switchboard 



mma\ 




liTjport^Jcpoit Data 



Marntain Data 



Scrub Marina Data 



@ Maintain Data Switchboard “HSQl 



2a. Mairi^SchcwlOdta 
'2^ ' ^ i MaW«Bt\PEFData 

2^ I MainlainSt:hc»ltol^FD^^ 

^ 2d Maintain FuTKlarBBf<a| Ropery 
J Mainiab Lx>g^ Roperty Data 
2f Marian Stiiool to Property Data 
J Return to Main Sv^chboard 

I Ewi ’ 



1 @ Generate AMPL Files 


□HI 


' Couse Numbw AMOS OsscNumbei Report Data ' Penalty 


FndSchoot "S Wei 5 ^ GanatateAMPlFles r. 


■l—iriii 

3d(i). 

" .V . «(U) 


Maixbtoty Dedred' | T i 

f 1 " ■’*' ^(ulj. 

MD T Status ^ ’;Y*^ 

" ^1 Execute Solver/Opbont ^ " 

^ ‘ ^ V ' . "" 

^ Oose-^‘'" 



Figure 13. Setting up a Model Run 



she clicks on the Import /Export Data button. This will cause the Main Switchboard 
to close and the Import/Export Switchboard to open. Prom this switchboard, the 
RDdss manager will import the RDl file and the BNA extract into the RDdss MODS. 
This is easily accomplished by clicking on the corresponding buttons for importing 
these files. Finally, the RDdss manager will click on the “Return to Main Switch- 
board” button, causing the Import/Export Switchboard to close and the Main Switch- 
board to reopen. 

The next step is data maintenance. This includes updating, editing, and/or 
deleting of school related information. The RDdss manager gets to the Maintain Data 
Switchboard by clicking on the appropriate button on the Main Switchboard. 

Prom the Maintain Data Switchboard, the RDdss manager will start at the 
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top and work his or her way down to the bottom. The various buttons on this 
switchboard open forms where data maintenance is performed. For instance, the 
first button opens the Maintain School Data form, allowing the RDdss manager to 
create, edit, and/or delete a school. The other buttons allow similar operations with 
the PEFs, and fundamental and logical properties. After the RDdss manager has 
finished maintaining the data, he or she returns to the Main Switchboard by clicking 
on the “Return to Main Switchboard” button. 

After data maintenance, the RDdss manager is ready to perform data prepro- 
cessing in prepartion for a model run. By clicking on the Preprocessing and Execution 
button, the Main Switchboard closes and the Preprocessing and Execution Switch- 
board opens. Ftom here, as on all other switchboards, the RDdss manager starts at 
the top and works down. 

The first three preprocessing buttons directly effect the generation of the class 
demand, class penalty, and Marine-to-class fitness matrix. This is why they come 
before the fourth button. Generate AMPL Files. Preprocessing in the correct order 
will reduce the amount of time spent setting up the run, by minimizing the need to 
generate a new class demand, class penalty, and Marine-to-class fitness matrix. 

The first preprocessing button concerns special assignments. Specially assign- 
ing a recruit affects the AMPL input in two ways. First, the respective member is not 
included in the Marine-to-class fitness matrix, since they already have an assignment. 
Second, the class demand for the class the recruit is assigned to must decrease by 
one. Otherwise, it may become overfilled. 

The second preprocessing button concerns reclassification of a Marine. Re- 
classified Marines affect the AMPL input in two ways. First, the class demand of the 
class they are no longer assigned to must increase by one. This provides an oppor- 
tunity to fill the empty seat during a subsequent run. Second, the class demand of 
the class the Marine has been reassigned to must decrease by one. Otherwise, it may 
become overfilled. 
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The third preprocessing button concerns data scrubbing, which also affects the 
AMPL input. It is an attempt to identify and correct errors relating to the Marines. 
An example is a Marine who has been given an unknown PEF. Since it is not identified 
by the RDdss, the member will receive a zero fitness score for every class. This will 
prevent the Marine from getting an assignment. 

Following the completion of special assignments, reclassifications and data 
scrubbing, the RDdss manager is ready to generate the AMPL input files. After going 
to the Generate AMPL Files form, the first concern is specifying the weights for the 
mandatory and desired properties. This is specified by the RDdss manager at step 
3d(i). What this does is indicate how important the mandatory properties are with 
respect to the desired properties. For instance, if the RDdss manager decided to give 
a weight of 1.0 to the Mandatory selection, the Desired selection would automatically 
fill in with 0.0. This would indicate the desired properties are of no consequence. The 
default for these two selections is 0.7 for Mandatory, and 0.3 for Desired. 

Next, at step 3d(ii), the RDdss manager selects the MCT graduation date 
desired. This is selected from the drop down list. Then, the RDdss manager pushes 
the “GO!” button. The system will now generate the AMPL input files, completing 
the run set-up. 

2. Model Execution 

Execution of the assignment model takes place after the run set-up has been 
completed. Figure 14 graphically illustrates the steps taken to execute the model. A 
discussion of this is now given. 

From the Main Switchboard, the RDdss manager points and clicks on the 
Preprocessing and Execution button. This takes him or her to the corresponding 
switchboard. Prom here, the Execute Solver/Options selection is made. This opens 
up the form where the model is executed from. 

The Execute Solver/Options form provides the RDdss manager the ability to 
set the fit and fill coefficients for the objective function. The default values are 1 for 
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Figure 14. Model Execution 



each coefficient. The RDdss manager can change either of these with a whole number 
from 0 - 100. The significance of these numbers is discussed in detail later in this 
chapter. Once the desired coefficients have been chosen, the Execute Solver button 
is pushed. 

By selecting the Execute Solver button, AMPLPlus is launched. This applica- 
tion will run without user interaction. First, it will import the RDdss mathematical 
assignment model. Next, the specified fit and fill coefficients axe retrieved. Finally, 
the preprocessed data generated during the run set-up are imported. Using this in- 
put data, AMPLPlus works in conjunction with the solver and generates an optimal 
assignment solution. 
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With the generation of an optimal assignment solution, the results are sent to 
an output file called “rdm.out.” AMPLPlus, having completed its task, now closes. 
This indicates an optimal solution was found and is available for importing. So, the 
RDdss manager now imports the results by pushing the Import Results button on 
the Execute Solver/ Option form. 

3. Customizing a Run and Results 

As mentioned in the previous subsection, the RDdss manager can set the fit 
and fill coefficients of the objective function. This is a key capability of the new 
system. It is the means by which the RDdss manager can customize a run and 
“game” the RDdss. This “gaming” of the new system is essential for determining a 
“good” assignment result. 

For instance, if the fit coefficient is set to 0, and the fill coefficient is set to 
a number > 0, say 1, the assignment model will maximize the fill of schools having 
early report dates. This has both advantages and disadvantages. One advantage is 
the average wait time for Marines to attend a school is minimized. Another is that 
the number of unfilled school seats, having a report date between the current and 
next scheduled model run, is minimized. However, a disadvantage is the average 
Marine-to-school fitness score is guaranteed to be the lowest score of all runs. 

Conversely, if the fit coefficient is set to a number > 0, say 1, and the fill 
coefficient is set to 0, the assignment model will maximize the average Marine-to- 
school fitness. An advantage here is the increased chance of each Marine successfully 
completing their ELS, establishing a pattern of success early in theri career. However, 
one disadvantage is the wait time for a Marine to attend a school is guaranteed to be 
the longest. Also, the number of unfilled school seats, having a report date between 
the current and next scheduled model run, is guaranteed to be the greatest. 

Neither of the above solutions is ideal. A better solution is some where be- 
tween these two extremes. By changing the fit and fill coefficients of the objective 
function, the RDdss manager has a means for customizing each run to ensure a “good” 
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assignment result is found. 



C. INNOVATIONS IN USER INTERACTION 

A number of user interaction innovations have been made in the RDdss. Two of 
them have already been discussed. These were the intuitive navigational scheme using 
the switchboards, and the elimination of manually entering data already available in 
the system. One more note worthy innovation is now introduced. It is a date change 
innovation. 

The date change innovation concerns changing the graduation date of the 
Marines in the downloaded RDl file. This is necessary for generating correct as- 
signment results. The date in the downloaded RDl file is based on graduation from 
the MCRD. However, the model needs to know when the Marines are available for 
assignment. Availability is based on the MCT graduation date. 

The old system solution to this problem took three steps. First, the RDM 
manager used a calendar to determine the MCT graduation date. This is normally 
27 days following completion of MCRD, and is always on a friday. So, the RDM 
manager will find the MCRD graduation date on the calendar and count 27 days. 
The firiday nearest to this day is the day desired. Second, this MCT graduation date, 
along with the RDl file, is sent to another branch in the USMC where the date change 
is made. Third, the file is returned to the RDM manager, who imports the file into 
the RDM. 

The reengineered system has streamlined this process. Within the RDdss, the 
RDdss manager makes the date change. It is accomplished with the push of a couple 
buttons. 

Figure 15 shows how these changes are made. First, the RDdss manager se- 
lects the MCRD graduation date requiring a change. Once this is selected, a calendar 
appears. Its purpose is to help the RDdss manager correctly identify the MCT grad- 
uation date. Next, the “=” button is pushed. Its purpose is to add the number of 
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Figure 15. Changing a Graduation Date 



days specified in the “Days” field (default is 27), to the MCRD graduation date. This 
updates the calender as shown on the far right. When the correct date is found, the 
“Change Date” button is pushed. This makes the desired change to the data in the 
RDdss database. 



D. INNOVATIONS IN ANALYZING MODEL RESULTS 

As discussed earlier, the RDdss manager has the capability of “gaming” the 
system by using different fit and fill coefficients. However, having this ability is not 
enough. The RDdss manager still needs a means to compare one run against another. 

It is hard, if not impossible, to estimate the quality of a solution simply by 
looking at a list of assignments. The actual assignment results depend on the values 
of the fit and fill coefficients, which cannot be set at the ideal levels without under- 
standing the impact on solution quality. So, analyzing run results to get insight and 
develop a “good” solution is now discussed. 

Four measures are considered particularly useful in evaluating alternative so- 
lutions. 

1. Fitness premium. The Marine-to-school fitness function is defined in a way 
that for each school, the average fitness over all Marines eligible for that school 
is 100. So, for any school, if the average fitness computed over Marines assigned 



35 




to that school is greater than (or less than) 100, the difference represents a 
positive (or negative) premium. 

2. Unfilled seats in first week. Since the model is run nearly every week, seats 
left unfilled in classes starting in the first week will remain unfilled. This 
represents wasted resources. 

3. Average wait time for Marines. Experience has shown that the longer a Ma- 
rine waits before attending their ELS, the greater the chance of disciplinary 
problems. Therefore, it is generally better to keep this wait period short. 

4. Unassigned Marines. A purpose of the system is to assign each Marine to a 
school. Therefore, knowing the number of unassigned Marines is an important 
measme. 

To provide the RDdss manager insight into the assignment results, these mea- 
sures have been incorporated into output representations, including summary statis- 
tics and detailed graphs. Each output provides both numerical and visual informa- 
tion. The numbers are used for quantitative comparisons. The graphical information 
provides a big picture view for use in a qualitative comparison. 

As an example, consider the two fitness graphs in Figure 16. Both of these 
were produced using an RDl file of 344 Marines and an BNA extract with school data 
covering a 120 day period. Below each graph is amplifying and numerical information. 
The bar chart on the left has a fit coefficient of 0 and a fill coefficient of 1. Additionally, 
its fitness premium is 28 (=128-100). The bar chart on the right has a coefficient of 
1 for both fit and fill. Its fitness premium is 38 (=138-100). The fit numbers are 
quantitatively comparable. The fitness premium for the run on the right is 36% 
(=100% X [38-28]/28) better than the run on the left. 

The above numerical analysis is also supported by visually comparing the bar 
charts. Notice the large number of blips falling below the fitness score of 100 on 
the left graph. Each blip represents a Marine, and there are actually 44 of them. 
Conversely, notice the comparatively small number of blips below 100 on the right 
graph. There are 21 of them. The visual comparison of the two graphs reveals the 
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Figure 16. Two alternative results: Fit 





Figure 17. Two alternative results: Fill 



qualitative difference. The graph on the right indicates a higher quality Marine-to- 
school fit. Of course, this supports the numerical comparison performed earlier. 

As another example, consider the two fill graphs in Figure 17. These are 
based on the two model runs just described. In other words, the left graph has a fit 
coefficient of 0 and a fill coefficient of 1, and the right graph has a coefficient of 1 for 
both fit and fill. 

Visually, these two graphs display an obvious difference. To appreciate how 
they are different requires an understanding of the significance of the blips. As note 1 
of each graph indicates, “The classes are ordered by penalty from highest to lowest.” 
Recall from Chapter III, this means the ordering is by class report date, starting with 
the earliest date. In other words, the bar chart on the left indicates almost every 
Marine will start school within the first three weeks. As discussed earlier, this is 
desirable. The bar chart on the right has its blips more spread out. So, by visually 
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comparing the two graphs, the left one has a higher quality with respect to minimizing 
wait time. 

This is easily validated by the numbers given in note 5 of each graph. The 
average wait of a Marine from the left bar chart is 1.33 weeks, and the average wait 
from the other bar chart is 1.69 weeks. Now we quantitatively compare these values. 
The results from the left graph are 27% (=100% x [1.69-1.33]/1.33) better than the 
right. 

In the following table, the results from three runs are given. The measures on 
the left are the foiir measures described earlier. Each run used the same 344 Marines 
and 120 days worth of school classes. The information for the first and third runs 
is from the two model runs discussed above. The second run was determined by 
“gaming” the system. In other words, we tried numerous combinations of the fit and 
fill coefficients until a “good” solution was found. Run 2 was the result. Understand 
though, we are not saying “best” solution. Only the USMC can determine what is 
best for them. 





Run 1 


Run 2 


Run 3 




(fit=0; fill=l) 


(fit=l; fill=ll) 


(fit=l; fill=l) 


Unfilled Seats (1st week) 


23 


23 


23 


Unassigned Marines . 


3 


3 


3 


Average Wait (weeks) 


1.33 


1.33 


1.69 


Fitness Premium 


28 


31 
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The reason we feel Run 2 is a “good” solution is based on a quantitative 
comparison of the measures and one additional piece of information. It is the fact 
the USMC feels it is more important to minimize wait time than to maximize the 
Marine-to-school fit. The remainder of this section explains how we decided Rim 2 
was a “good” solution. 

Starting with the values for unfilled seats, it is obvious all three runs axe equal. 
The same is true for the unassigned Marines measure. So, these two measures provide 
no insight for comparison purposes. 
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Concerning the average wait, the values of Runs 1 and 2 are equal. Further, 
their 1.33 value is numerically smaller than the 1.69 value of Run 3. This is good for 
Runs 1 and 2. As was proven earlier, a value of 1.33 is 27% better than 1.69. 

Finally, there is the fitness premium measure. The first observation made is 
that Run 1 is a candidate for elimination. The reason is as follows. Run 2 has the 
same score as Run 1 for the first three measures in the table, but it shows an 11% 
(=100%x[31-28]/2S) increase in the fitness premium. So, Run 1 is eliminated from 
the competition. 

This leaves the last two runs. Run 3 shows a 23% (=100%x[38-31]/31) increase 
in fitness premium over Run 2. This creates a conflict. Run 3 has a 27% increase in 
average wait time, which is bad. Conversly, it has a 23% increase in fitness premium, 
which is good. To decide which solution is better, more information is necessary. This 
comes from the fact mentioned earlier, that the USMC feels it is more important to 
minimize wait time than to maximize the Marine-to-school fit. 

We can now conclude Run 2 is a better solution than Run 3. Here is why. Run 
2 minimizes average wait by 27% by giving up a 23% increase in Maxine-to-school fit. 
This agrees with the USMC desire to more strongly emphasize a minimum waiting 
time. So, Run 2 is a better solution than Run 3. Since it also satisfies the known 
desires of the USMC, we feel it is a “good” solution as well. 

E. OBJECTIVE COMPARISON OF OLD AND NEW 
SYSTEM SOLUTIONS 

In the previous section, we described how a set of solutions generated by the 
RDdss are compared to determine a “good” solution. Using the same approach, we 
now demonstrate how to objectively compare the results from the old system with 
the new system. This provides the USMC a means of determining which system’s 
solution is better, if either. Comparison of the new and old system results has been 
made easy by automating the importing of the RDM result into the RDdss. 
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We have summarized the important data for the old and new systems in the 
following table, based on the same 344 Marines and 120 days of school classes dis- 
cussed earlier. Since the assignment algorithm for the RDM was designed to maximize 
fill, a run from the RDdss based strictly on fill has also been included. It is the run 
with a fit coefficient of 0, and a fill coefficient of 1. The last column, labeled “Run 
2,” is a “good” solution we found by gaming the RDdss. 





Run 1 

(fit=0; mi=l) 


RDM 


Run 2 

(fit=l; mi=10) 


Unfilled Seats (1st week) 


23 


23 


23 


Unassigned Marines 


3 


3 


3 


Average Wait (weeks) 


1.33 


1.34 


1.34 


Fitness Premium 


28 


29 


32 



We start by objectively comparing the RDdss fill-based result with the RDM 
result. They are labeled “Run 1” and “RDM,” respectively. As we shall prove, the 
RDdss has done a better job at filling early school seats than the RDM. 

Of the four measures, only one provides any useful insight for this comparison. 
It is the average wait measure. The reason the other three do not apply is as follows. 
The first two measures have the same values, so they provide no insight. The last 
measure is not too meaningful, since Run 1 is strictly based on maximizing fill. In 
other words, it disregards fit because its fit coefficient is set to 0. This leaves the 
average wait measure. 

A quantitative comparison of the average wait shows the RDdss solution is 
1% (100%x[l. 34-1.33]/!. 33) better than the RDM solution. This is explainable by 
considering the approach used in each model. The RDM assignment algorithm maxi- 
mizes the fill of early school seats by looking at each school in a sequential fashion. In 
contrast, the RDdss conducts a global comparison of Marines and schools. In other 
words, it goes through numerous iterations until it finds an optimal fill solution. This 
show that the RDM assignment algorithm is only closely approximating the optimized 
assignment result. 
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Finally, we “gamed” the new system until a “good” solution was found. This 
is Run 2. It has a fit coefficient of 1 and a fill coefficient of 10. 

The objective comparison of the RDM and Run 2 solutions is straigtforward. 
Since the first three measures are the same for both results, they provide no insights. 
This leaves only the fitness premium measure. A quantitative comparison of this 
measure shows Run 2 has a 10% (100%x[32-29]/29) better solution than RDM. This 
shows the benefit of “gaming” the RDdss. 

F. SUMMARY 

This relatively long chapter covered some important points related specifically 
to the RDdss. The architectural components of the new system were discussed first, 
followed by the steps taken to actually build this DSS. Then, from an operational point 
of view, using the RDdss was discussed. This included setting up a run, executing 
the model, and customizing a run for determining a “good” solution. Next, two 
innovations were discussed in great detail. These included the date change innovation 
and the analyzing model results innovation. Finally, a means of objectively comparing 
the solution from the old and new systems was discussed. 

We truly believe the innovations and capabilites introduced by this prototype 
can greatly benefit the USMC’s Marine Enlisted Assignments branch. It can help the 
USMC to more effectively accomplish its mission as stated by the Commandant of 
the Marine Corp, “to put the right Marine in the right place at the right time with 
the right skills and quality of life.” 
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V. 



CONCLUSION 



This concluding chapter has three short sections, followed by a final comment. 
In the first section, we reiterate the significant contributions made in the thesis. This 
is followed by a brief description of some lessons we learned. Then, some recommended 
improvements for the prototype are given. Following this last section, we comment on 
how this thesis work might benefit the other branches of the United States military. 



A. SIGNIFICANT CONTRIBUTIONS 

Four significant contributions beneficial to the USMC were made in this thesis. 
These were discussed in detail in the previous three chapters. A list and summary of 
the contributions is given here. 



• Analysis and articulation of the recruit distribution process - by interviewing 
USMC and DSAI personnel, reviewing available documentation, and oper- 
ating the RDM we were able to articulate an understanding of the recruit 
distribution process using IDEF process modeling. Additional data modeling 
was articulated in a third normal form relational schema. 

• Development of a mathematical model - by analyzing the assignment process, 
criteria, and constraints, USMC policies and objectives, a mathematical model 
for the new system was developed. 

• Fully functional prototype - an intuitive and easy to understand new sys- 
tem that seamlessly interfaces with the old system was built. It provides an 
objective means of comparing assignment results of both systems, and was 
developed using COTS software applications. 

• Elimination of the proprietary solver and associated contractor lock-in - this 
was accomplished by replacing the proprietary solver with two COTS appli- 
cations. 

B. LESSONS LEARNED 

Our original goal was to build an As-Is IDEFO model of the RDM, about two 
months after starting the thesis. This worked out fine. The next goal was to take 
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another six weeks to develop a To-Be IDEFO model [Ref. 1]. This did not work out, 
for two reasons. First, our understanding of the entire recruit distribution process 
was still not mature enough to build the To-Be model. Nearly half a year was spent 
just thinking about its many details. Second, it is nearly impossible to envision the 
new system without first knowing the capabilities and limitations of the application 
used to build the prototype. One extreme envisions the impossible, while the other 
barely touches the reengineered system’s potential. The lesson learned from this was 
that properly reengineering a process requires two things. A detailed understanding 
of the current process environment, and a good working knowledge of the capabilities 
and limitations of the application vised to build the prototype. 

Getting feedback from the Marine Enlisted Assignments branch was not always 
easy. Correspondence normally occured by e-mail. There was an inverse relationship 
between the number of questions asked and the number of answers given. As the one 
increased, the other decreased. So, another lesson learned was that it is best to limit 
each correspondance to a question or two. 

While writing code, it is best to simultaneously document the code’s purpose. 
Going back and trying to provide documentation at the end is too frustrating. This 
requires a considerable amount of discipline, but is well worth the effort. The lesson 
learned here is document as you code. 

C. PROTOTYPE IMPROVEMENTS 

A big part of this thesis involved the building and refinement of the prototype. 
The following topics are areas where the RDdss could use improvements. 

1. Speed Improvements 

a. Preprocessing Data 

Of all the steps necessary to complete a run of the RDdss, the prepro- 
cessing step is the most time consuming. For the 344 Marines and approximately 
500 school classes analyzed in this thesis, it takes about 30 minutes to preprocess 
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this data. This is about ten times longer than the assignment model takes to find 
an optimal solution. As the size of the preprocessing data is doubled, so is the time 
needed to preprocess it. Finding a way to speed up this process is desirable. One 
possibility is to find a way to perform all the preprocessing in main memory, with 
only two accesses to the hard drive. The first access is to get the necessary Marine 
and school data. The second is to write the preprocessed results back to the hard 
drive. 

b. Analyzing Result 

Compared to all other forms and switchboards in the RDdss, opening 
the “analyze results” forms is the most time intensive. With the 344 Marines and 
approximately 500 school classes, it takes just under a minute for any of these three 
to open. This feels like an eternity when you are in a hurry. The reason it takes 
so long is the creation of temporary tables, numerous calculations and comparisons, 
and retrieving of data firom flat files. Finding a way to reduce this time is desirable. 
One possibility is to create another form which would contain only the four objective 
measures. Cmrrently, the RDdss manager must go to two different forms for this 
information. Each containing information and displays in addition to the objective 
measures, which slow them down. 

2. Multiple Solution Storage 

Currently, the prototype will only save the results of one solution. This means 
the RDdss manager must either print-out hard copies of the graphs, or manually 
write down each solution’s objective measmes for comparison with other runs. An 
improvement here should allow the storage of at least three solutions. This would 
permit the RDdss manager to easily compare each solution. He or she could then 
eliminate one or two undesirable solutions, while continuing to search for a “good” 
one. 
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3. Administration Switchboard 

To look at all the schools or properties in one display, the RDdss manager 
must open up the associated school or property table. A reason for doing this is 
system administration. For instance, if a supervisor is auditing the RDdss’s property 
data, looking at all the data at one time is convenient. A simple way of including 
this feature is by adding another switchboard. The switchboard’s buttons would have 
VBA code associated with them, causing the desired tables to open. 



Any benefits derived from this thesis work were specifically aimed at the 
USMC. However, it does not have to end there. Like the USMC, other branches 
of the United States military must deal with the problem of how best to assign their 
service members to schools. Since all the services require their enlisted personnel to 
take the ASVAB test, the approach used in our prototype might prove an ideal solu- 
tion. Further, our efforts may also contribute to the reengineering of other assignment 
models. So, this thesis work could actually benefit all branches of the United States 
military. 
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APPENDIX A. ACRONYMS 



Acronym=> Meaning 

AMPL A Modeling Language for Mathematical Programming 

ARMS Automated Recruit Management System 

ASVAB Armed Services Vocational Aptitude Battery 

BNA By Name Assignment System 

BPWin Business Process for Windows 

COTS Commercial-off-the-shelf 

CPlex Optimization Package for Complex Linear, Network and Integer Programming 

DSAI Decision Support Associates, Inc. 

DSS Decision Support System 

ELS Entry Level School 

ICOM Input, Control, Output, Mechanism 

IDEF Defense Institute Modeling 

IDEFO Business Process Modeling 

MCRD Marine Corps Recruit Depot 

MCT Marine Combat Training 

MODS Military Operational Data Store 

MOS Military Occupational Specialty 

PEF Program Enlisted For 

RDl Recruit Distribution Input File 

RD3 Recruit Distribution Output File 

RDdss Recruit Distribution Decision Support System 

RDM Recruit Distribution Model 

USMC United States Marine Corps 

VBA Visual Basic for Applications 
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APPENDIX B. AS-IS RD BUSINESS 
PROCESS (IDEFO) MODEL 



AUTHOR: Kevin J Snoap 
PROJECT: RDM Project 

NOTES: 123456789 10 



DATE: 10/2/97 
REV: 7/25/98 
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■ working 


READER DATE 
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PUBLICATION 
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TOP 



BN A Extract 



RD1 File 
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Options 



Dictionary 



Previous 
Run Data 



RDM 



Algorithm 



Model 

Manager 



Approved Assignments 



Reports 



A-O 
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USED AT: 


AUTHOR: Kevin JSnoap 


DATE: 11/20/97 


■ 


[working 


READER 


DATE 


CONTEXT: 




PROJECT: RDM Project 


REV: 7/25/98 




DRAFT 




■■ 










RECOMMENDED 




CZ3 




NOTES: 1 23456789 10 






PUBUCATION 




AO ^ 




TITLE: 



A1 



Input Processing 



NUMBER: 



NODE: 
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USED AT: 



AUTHOR: Kevin J Snoap 
PROJECT: RDM Project 



NOTES: 1 2345678910 



DATE: 12/11/97 
REV: 7/25/98 
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1 WORKING 
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USED AT: 


AUTHOR: Kevin J Snoap 


DATE: 12/1 7/97 ■ 
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READER 


DATE 


CONTEXT: 




PROJECT: RDM Project 


REV: 7/25/98 ( 
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Selected 

Dictionary 



NODE: 

A1.4 


TTTLE: 


Dictionary Selection 


NUMBER: 








1 
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USED AT: 


AUTHOR: Kevin J Snoap 


DATE: 12/2/97 


■ 
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READER 


DATE 


CONTEXT: 




PROJECT: RDM Project 
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DRAFT 














RECOMMENDED 








NOTES: 123456789 10 






PUBUCAT10N 




A1.5 ^ 



Selected 






Dictionary 


Schools Using 
PEF Viewer 


i 












1 


1 



Viewed School to 
PEF Association 



f - 1 

Release School j 
Numbers? | 

j; 

2 i 




Model 

Manager 



School Data 
Browser 



Dictorwry Input 



NODE: 

Al^.1 


TITLE: 


School Data Maintenance 


NUMBER: 








1 



AUTVIOR: Kevin JSnoap 
PROJECT: RDM Project 

NOTES: 123456789 10 



DATE: 12/2/97 
REV: 7/25/98 
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USED AT: 


AUTHOR: Kevin J Snoap 


DATE: 


12/10/97 
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READER 


DATE 
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REV: 
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AUTHOR: Kevin J Snoap 
PROJECT: ROM Project 

NOTES: 123456789 10 
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REV: 7/25/98 
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AUTHOR: Kevin J Snoap 
PROJECT: RDM Project 



NOTES: 123456789 10 
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REV; 7/25/98 
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USED AT: 
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APPENDIX C. TO-BE RD BUSINESS 
PROCESS (IDEFO) MODEL 



AUTHOR: Kovin J Snoap 
PROJECT: RDDSS 
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AUTHOR; Kavin J Snoap 
PROJECT; RDDSS 
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USED AT: 
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DATE: S/17/98 
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APPENDIX D. RDDSS VBA CODE 
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206 
206 
207 
206 

209 

210 
211 
212 

213 

214 

215 

216 

217 

218 
210 
220 
221 
222 

223 

224 



128 Rassna EriLComnwidB.Cick 

129 

130 End Sub 

131 

132 

l33Pmai* Sub ForTTv.O*actw*i*() 

134 

135 II booSchodAsM^nfrent Than 

136 

137 OmstSO. As Sting 

138 OvnI Aslntagar. (Aslnlagsr 

139 Dimrac As Recordsel raci AsPacontoal. rac2AsPacordM« 

140 Dlmctil AsOatebaaa 

141 

142 Sat (t>i • CvranCbO 

143 

144 Craaiasi*H*t>oattielliandni<MaK7«us*datingtia 

145 App«calon.SalCplten*CanrirmAielOnaMrW^. Fdsa 

146 'OaltiBtia labia lilt ataadyadsB 

147 OaMaTabla 

148 

149 drl.Eweute X3IEATE TABLE PEnCENTAGE(ComeNitr«ar TEXT. AMCS 
TEXT. Quou imEGER Asal^iad IhnEGER. Parcank^^ INTEGER).' 

150 Apptcaton.SaCpDon 'Confirm Acton Qjarlas'. Tnja 

151 

152 stSa - -SELECT ' FROM PERCENTAGE:' 

153 Sal rac • (til .OpanRaeordsaKitSOL. (tiOpanOynasaO 

154 

155 stSCL- •SELECT* FROM dyToteOsjteForftti ORDER BY 

156 Salrac1xt>10panRacordBal(arSCLct>0p*nSiiap^ 

157 stSO. . -SELECT ' FROM 7yToMOuiltFlhK5^a«i ORDER BY 
SCoissaNurrtiar.FK.' 

156 Sal rac2 • (t>1 OpanRacorctaaKatSa. diOpanSnapohol) 

159 ' Ensir* tiara ar* vakra* In tia racords 

160 Itraci EOF- FktoThvi 

181 II rac2E0F « FatM Thdi 

162 racl.MovoLad 

163 raci MoaaFIrsi 

164 rac2MrvaLkoi 

165 raeZMovaRr* 

166 Filtia PENALTY llblawiti tia quota vteues ter fia 

167 Forla IToracI.RacordCoinl 

168 rac.AddNaw 

169 r*c1Cousa^Almb*r - rac IISCoitsaMffrtier.FK 

170 raclAMDS-raclIAMOS.FK 

171 raclCkx)4a> raclISuiCFCkiola 

172 rac.UpdaiB 

173 raciMnaNaid 

174 Natt I 

ire rac.hbMFtsi 

176 ' Ubdal* tia PENALTY Mbl* alti Sw parcankga ol quote 

177 For I B 1 To rac.RacordCOkail 

178 racSMcMeFtsI 

179 For I ■ 1 To rac2 RscordCoifil 

180 It rac ICoitsal^jrTtitr . rac2!SCo(tsal4tntiar_FK Dian 

181 lfraclAMOS-rac2'AMOS_FXThan 

182 rac Edl 

183 rac >Assl9ted - rac2tCouilOIFiac*iyaar_PK 

184 raclParcanttge>lnl((rac!Aste(rad/ 
rac'Quote) * 100) 

185 racUpitete 

186 EtelFor 

187 EnjII 

188 End II 

189 rac2.MrvaNBte 

190 ' II no mtKTi was kMAid. tian tie paroad III Is 

191 II I • rsc2.RBcardGounl Than 

192 rac E<11 

180 raclAsslgnad-O 

104 racIParcantegtaO 

105 racUpdaia 

196 Endn 

197 NM| 

196 rac.MMaNate 

109 NMi 

200 

201 Endn 

202 

200 Endll 

204 

205 raeCkM 

206 raci Clooa 

207 racZCtoaa 

206 <t>1.CteBa 

206 

210 Rasaitialteo 

211 booSchoolAsBignman] - Ftesa 

212 Eba 

213 ' Oaitte tia PERCENTAGE labia 

214 DaMaTabl* 

215 End II 

216 

217Er»JSub 



» CodB^**’’'*™'*'**^ 

227 1 Altibute VB_Nam* • -ForrTx.lrmAsa>yirTeo ffteteir 

228 2 AtelbuteVB.Craatkbla- Tiua 

229 3 ABntwte VB.PradaciaradId > Tnra 

230 4 Ateibute VB_D«Maad - Fate# 

231 5 Opton Conpar* Ditehaaa 

232 8 OpIunEjpicll 

233 7 

234 8 

235 9 Private SUi Foni\,C<sraoO 



236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 



10 

1 1 Dim stSGL As Sting 

12 Dimrac Asftecordsai 

13 Dlmdil AsOatkbasa 

15 Sal (t>1 - CurranlObO 

16 

17 ' Cateutetes tia avaraga. and lowr ntiass scoras. Abo. II 
ralnialBS re nonpar ol soAar as aigarante 

18 stSCL - -SELECT Aig^Dtiess) AS Avaraga. MedFikiess) As Maarrurv 
Mn(F<rias$) As Mrarntn CoisiKFitiass) As TotelAsa^nad FROM 



20 

21 

22 

23 

24 

25 

dk 

26 



M* uFIkMaAvg • inyractAvaraga) 

Mb BdFikiasMai • racIMutirum 
Mb taRniaJIn • racIMranun 
Ma.tCoAarAsalTUTBna - raclTel*IAs> 9 iad 



irSOL • -SELECT Coiaa(AB97imknlTypa) AS Ti 



256 27 Sal rac - <l>t CpteiRacorrbaKstSO. itCpanSnapteiol) 

259 28 Mb tetAanuaXsteiyuTwrite • rac'ToteMavalAsteffted 



67 



MBfMiEquak Enabled s True 



261 Me DdSoe«rABignm 0 nts 

2S2 30 

263 31 ‘ CaiciiaM rw rxrrtw ol uusst^ied marines, and 9<e total nortier 

264 ol asSTUble marines 

265 32 strSQL = ‘SELECT CounJfPEF) AS ToSiUiasslgned FROM 

266 33 Selrec sdb1.CpenAacardse<(srSCL dbCpenSoapshoO 

267 34 Me brfTotalUtassigned = recITobJUnasslTisd 

26a 3S Mo brfTobdAssgr^able ^ recITatidUnasslTied • 

269 36 

270 37 ' Oe«ta a bble to gel tie lit and til »«i^b tsed <h«ing the run 

271 38 A(3plcal>an.S«lOpttan ‘Confirm Acton Ojenes*. False 

272 39 dbl.E«cul9 ‘CREATE TABLE CONSTANTS (Conslanirtemo TEXT. inlValue 

273 40 OoCmd TranslarTmd aclrri)ortFi*d. ‘Rdm_0ab Ejf»rt Spoctficalon*. 

274 constants. ‘C:\ToBofttn\AmplOatalr(*n.dar 

275 41 Applcaton SelOpeon ‘Confirm Acton (X«rles‘. True 

276 42 

277 43 sbSQL = ‘SELECT tnlVaUe FROM CONSTANTS;' 

278 44 Set rec = dbl OpenneccrdaefistSCL dbOpenSni^nhoi) 

279 45 Me tdFlNVel^ s raclInlVaiie 

280 46 rec.Mo>i«Ne« 

281 47 rec MoveNs4 

282 48 Me DdFlIWetgtV ■ reclIrtfValue 

283 49 rec Ckee 

284 50 

285 51 ’ RemcM the aoelad table 

286 52 dbi .Ejtacuta ‘DROP TABLE CONSTANTS.' 

287 53 dbl.Ckee 

288 54 . 

289 55 

290 56 EndSub 

291 57 Pnvata Sub Ckxe.CickO 

292 58 On Error GoTo Err_Ck»e_CiCi( 

293 59 

294 60 OmsiOocName As Sting 

295 61 Our slUnkCntona As Sting 

296 82 

297 63 ' Ooee 9w ci^ienl form 

298 64 OoCmd.Oose 

299 65 ' Open specitied form 

300 66 stOocName = ‘IrmAnatyzeRestir 

301 67 DoCiTitOpenFormslDocfitaiTie. . . sttJnkCrllerla 

302 68 

303 69 EjiLCtaae.Cicic 

304 70 EtilSU) 

305 71 

306 72 EfT.Ctaeo.Ocic 

307 73 MsgBca Err Descripton 

308 74 Restane Ei4LCk»e_Clck 

309 75 

310 76 ErvISub 

311 

312Fomt inmChangeOadOate 

313 Code 

314 1 ADIbuto VB.Neme = ‘FornvIrnOiangeC^adOalB' 

315 2 AitibuteVB.CreatablesTrue 

316 3 ABrlbule VB.PredecLaredld = True 

317 4 Afirlbuta VB^Eaposed * Fahe 

318 S Opton Corrpare Database 

319 6 Opton Ej^K 

320 7 

321 8 PnietoSubbtOiangeDaie_Cicl4) 

322 9 

323 10 ‘ Change tie specified 7 adualon data In tie MfiRtIC table 

324 11 Applcaton SeiopOon ‘Confirm Ac ton (Xtarles*. False 

325 12 OoCmd. OperOtary ‘TyCharigeOadOate’ 

326 13 AppIcaSortSelOp^ ‘Confirm Acton (Xierles’, True 

327 14 

328 15 ' Update tie drop dowm 1st lor MCRD Oad Data 

329 16 ItelcrTtiMCFIDOadOate RowSouca : ‘SELECT DISTINCTROUV 

330 )<yyMCTOadOate] ICtadOate] FROM |qryMCTOadOate|.‘ 

331 17 

332 IS ' Force user to refresh dab before perlormng anotw data change 

333 19 MelcntiOays Enabled = False 

334 20 MelbMCTQadData Entatted e Fabe 

335 21 MeibtiEguals.EntfM » False 

336 22 

337 23 'PriMde a message InHcalng tie change was made 

338 24 Ms^ok ‘D ata change wsssucceesluP’ 

339 25 

340 26 EndSub 

341 27 

342 28 PmetoSubbtiEquals ClckO 

343 29 

344 X DimwOetoAsVartam 

345 31 DiminlOays As Integer 

346 32 

347 33 intDays s Me.ctrPDays 

348 34 lairOate = MecrrfcMCRDOadOato 

349 35 

350 36 II lsfiUi(i«rOata) = Fake And lsfi*J(inlOays) =Fafco Then 

351 37 

352 38 ' Formal tils data lor use In tie OataAdd tincton 

353 39 varDate = FornvtvarDab. ‘<llt/<l/tt‘) 

354 40 

355 41 Add 120 days to ns date 

356 4? varOato = OataAddCcf . toCays. iwOate) 

357 43 

358 44 ' Change calendar to ns date 

359 45 MelctCalendar Vatoe s varDate 

360 46 

361 47 ’ Convert tie new date beck Into tie on^naHamet 

362 48 wOate = FormefivarOate. "yyyymmdd') 

363 49 

364 SO ' Place tie new dale in tie ‘upper date bcwxr tad bcs on tw 

365 baling lorm 

366 51 Me b«4CTOadOato < verOato 

367 52 

368 53 Alows user to change tw^aduaton date In tteMARIhE table 

369 54 MelbtriChvigeDate Enablad = True 

370 55 Ertolt 

371 56 

372 57 ErtoSub 

373 58 

374 59 Prlvale Sub cmbMCRDCkadDato>JterUpdato<) 

375 60 

376 61 Dim wDato As Variant 

377 62 

378 63 wOato ■ Ms cmbNCRDC^dOata 

379 64 MollidMCTOadOata Value s ‘ ‘ 

380 65 

381 66 II IsNktaverOato) s Fake Then 

362 67 

383 66 ’ Fvmatnsdato loruserntteDataAddfinclon 

384 69 wOato e FormafivarOato. 

385 70 

386 71 ‘ Chtaige calendar to ns data 

387 72 MalcHCatendar Value c varOato 

388 73 htolclICaiendar Vitatae c True 

389 74 MsIcrrtoOays Enabiad e True 

300 75 Me>0A4CTGradDato Enabted - True 



395 80 EndSub 

395 81 

397 82 Private Sub Form^Cirrent) 

398 83 

399 84 MelctCalendar Visible e False 

400 BS MelcmbDays. Enabled e False 

401 86 MelMMCTOadOate Enabted e F^ 

402 87 MetbtiEquats. Enabled = False 

400 88 MB'btoiangeDato Enablad E False 

404 89 

405 90 ErtoSub 

406 91 Private SubOose.CIckO 

407 92 On Error QsTo EfT_Cloee_C*ck 

408 33 

409 94 Om sfDocNwTw As Sting 

410 95 Dim slLlnkCriteria As Stmg 

411 96 

412 97 ' Cloee tie cwreni term 

413 98 DoCmOose 

414 99 ' Open specified lorm 

415 too sOocNarrte e •trt rt ir per VEitoortSwilchbciafd' 

416 101 DoCrrslOpenForm ttOocNurv. . . sBJnkCritena 



421 l066rr_aose_Clck: 

422 107 MsgBacErrOescnptor 

423 106 Resune EjtLCk»e_ack 

424 109 

425 IIOEndSub 

426 

427 Form tnrOass 

428 Code 

429 1 ABribute VB.Name e 'Fonri^IrmCtess* 

430 2 AtrlbuteVB_Oeotabio»True 

431 3 Attlbote VB.Predeclaredld s True 

432 4 ADlbUleVB.EttoaeadEFabe 

433 5 Opton Comptae Database 
6 Opton Eipldt 



435 

436 



Private SubbtiRndSchool.CfickO 
Ol Error GoTo Err_btiFmdScho^Clck 



446 18 Err_b»iFlndSchool_aclc 

447 19 MsgBok Err OescrIpOon 

448 20 Resune 6dLbtiFindSchool_C>ck 

449 21 

450 22 EndSub 

451 

452 Form trmCtassOntaPenafiyArklRI 

453 Code 

454 1 AChbule VB.fitame e •Form_frmCtasaOjotaPenalyAndFir 

455 2 Aitobuie VB.Creatable s True 

456 3 ABribute VB.Predeclaredld = True 

457 4 AltIbuteVB.&toQsadE False 

458 5 Opton Corpere Database 

459 6 Opton Ejplcll 

460 7 

461 8 Private Stto bmGo CickO 



11 Dim togHcxv AsLong. togMnAsLong, togSec As Long 

12 Dim togStart As Long. togEnd As Long 

13 OmstSQL As Sting 

15 ‘ Starta tie fmer lor d^itaytng tie line taken tor ns subroulne 

16 togStart E Timer 



' Preventa toe user Horn going beck to change t» MCTaadOato (till a 
as file to 

' mede. or me reset biftn is pushed 
MelMCTOadOato. Enabled e False 
vwUOatoBound « Me UDateBouid 



27 ' Update te quota/penaty racords on ns lorm 

28 stSQL s •SELECT DISTINCTROW (CLASS]. (SCoixsaMimber FK]. * & 

29 ‘tCLASS].[AM06.FK|.(CLASS| (ClassMjntoar.PKI. ]CLASS( IRepotlDatel. ’ 

» ‘(CLASSJ-ICtootal. (CLASSI jCtassInda^. lPENALTY].(CtasslndBX.FK). ‘ 

31 ‘(PENALTY] (Penally] FROM aCLASS] INNER JOIN (PENALTY) ON * A _ 

32 ‘(CLASSl.IOassInbeig =(PENALTY).(aasstiden.FK!).‘ 

33 Me RecordSaace e stSOL 

34 

35 ’ (pdate stats of stats toot best 

36 MolStats E ‘Worung . ' 



' update stats ol staks toot box 
Me'Stats E ‘Rias goneratad<‘ 

OoCmcLBaap 

' Recorrta tie stop *me lor navrng ns subroulne 
togEnd sTlfiw 
' Determine total sees 
togSec = togEnd • togStad 



50 togHcuEtogSec\360O 
St ' Oetarmlna total mns 

52 t^Mn. (»xiSoc>tigHo(a‘3eOO)\60 

53 ' Oetermme toe secs rensining 

54 togSoc-(togSec-<to^n‘60)-(»'9Moix‘3600))\l 

55 MsgBax ‘TTss operalon took ' t togl-taur & ‘ hoirls). ' A togMn A * 
iKiXt). '6- 

56 *arto * A k^Soc A * secs.'. vbOKOnly. ‘Recrut Ostlbuton IVtodoT 



Me btiPrepareAndEtacutoSaiMir SeFocus 



516 61 End Sub 



63 PrivelD Sub btrQo.MxseOownt Button As Ir 

64 YAsSIn^) 



r. ShiltAsIntagBr. XAs 



68 



521 

522 

523 

524 

525 

526 

527 

528 

529 

530 

531 

532 

533 

534 

535 

536 

537 
53S 

539 

540 

541 

542 

543 

544 

545 

546 

547 

548 

549 

550 

551 

552 

553 

554 

555 



559 

560 

561 

562 

563 

564 

565 

566 

567 

568 

569 

570 

571 

572 

573 

574 

575 

576 

577 

578 

579 

580 

581 

582 

583 

584 

585 

586 
507 



500 

591 

592 

593 
694 

595 

596 

597 

598 

599 

600 
601 



604 



609 

610 
611 
612 

613 

614 

615 

616 

617 

618 

619 

620 
621 
622 

623 

624 



66 KMSh&a > 'Worlgng ' 

67 

68 EndSub 

69 

70 PrMlsSi4>briPr«pvaAnd£jecufekSoK«r_ClKlc() 

71 On Enar OoTo Eff_b#\Pr«pftfaAndE»ciJteSoK**_aek 

72 

73 Dim ttOodibme As Sinng 

74 Dim s&jnkCntona As Stmg 

75 

76 ' Ooao Vie civranl (oim 

77 DoCmdCksao 

78 ' Qwn ^xxnlied lorm 

79 sOxNvna - ‘IrmPrflpvaAndEieculBSoAw* 

80 DoCmd OponPonn sJDoct^imo, , . sUnkCfilans 

81 

82 EjsLMiPreparaAndEjBcutoSokoi.Ctck: 

03 EatSub 

84 

85 Err.bmPrapvoAndEjBcutoScAnr.Ctck; 

86 MigBoiErr.Ooscnpban 

87 Rbsuts EjiLbriPrapwnAndEwulBSoAw.Cick 

89 EndSub 

90 

91 Pnvato Sub t4nnek#nPnMoid_CicK0 

92 On Error GoTo &r_bmnBlumPf«viou5.CSck 

93 

94 Dim stOocNsfra As Sbmg 

95 Dim sdjnkCntina As Srmg 

96 

97 • Ctos© »» ciVTonl lorm 

98 OoCmiaoM 

99 ' Ctxm speciliod lorm 

100 slOocNwna • *lrrrA«pracassing&£»culGnSiMlchbo*rir 

101 DoCmdOponForm slDocNsmB. , . stjnkCritan* 

102 

103 EaLWnRBi»nProvious_Cick_ 

104 Eat Sub 

105 

1 06 &r_borftoA»nPr«MOU5_Ciclc 

107 MigBox Err Doscnpbon 

106 nssum EaLt*’R^nPr«Mou5_Clck 
109 

lloEndSub 

111 

1 12 PrivMB Sub cirtiCoiFioNurrt»rFind_AttBrl4>il«teO 

113 

114 DimRAs Ftocordsol 

115 SelR-Mo.RecordwtCbne 

116 RFndFirsl ISCoursm^rtjor.FK) - * & Cnr(34) & 
ktel|cn*C«wsoAEsrt)arFif*ll & Chr(34) 

117 Mo Bookmark • RBootorwk 

118 M»i|crTt>CaifseNLrrt>erFind| - Nul 

119 Me PanoRy SelFocus 

120 

121 EndSub 

122 

123Privste Sub Eom\_CLrrenl() 

124 

125 ' Prmerb ffre user from eroaing t» AMPL filw uiW • MCT 

126 ' grodualon date is enlared 

127 II IsNkJfkfe MCTQr *(10810. Vakje) 77100 

128 MelbtrGo Eiubiad - Fsbe 

129 MelShliJs.Eniit3led • Folse 

130 

131 ‘ AJowe tw user to create tie (^k and per^ (lies 

132 Else 

133 hto'btoGo Enabled - Tnje 

134 

135 End If 

136 ' update (he steka oi tie stetes knd box 

137 MelSklus-** 

138 

139 End Sub 

140 

141 Private Sub MCTCradD*teJUUrl4>datoO 

142 

143 Dim wDate As Vanant 

145 wDato • Me MCTCradDato 

146 

147 ir l*MJ<varOale) . Fake Then 

148 

149 Me>b»iGo Enabled - True 

150 Me*S«AB. Enabled. True 

151 

152 ‘ Formal Bis date lor use in tie OataAdd fmcbon 

1 S3 wOate . FcamaBvwDale, *11 ll/ll/ll*) 

154 

155 ‘ Add 120 days to tis date 

156 varOate • DateAddCd*. 120, wDale) 

157 

158 'Cotaerl tie newdate back into tie onitriaMormal 

159 vwDato . Farnal(vBrOale, *yyyyrr*Tx1<f ) 

160 

161 ‘ Pkce tie new date Ml tie 'iteper date bounif tea box on tie 
calling (arm 

162 Me.UDataBound. varOale 

163 

164 Else 

165 KMbteGo.Enabled . False 

166 KtelStakB Enabled . Fake 

167 End 11 



626 169EndSub 

627 170 



629 Form limFind 

630 Code 

631 1 Attibuie V8_Name • ‘ForTTuImFind* 

632 2 Altibute VB.Cmatable . True 

633 3 Avibute VB.PredeclaredId - True 

634 4 Altibuto VB.Ejtxaed ■ Fake 

635 5 Opton Corrpare Database 

636 6 Colton Ejpicil 

637 7 

638 B Private Sub btiFmd.CIckO 

639 9 On Enor GsTo Err_bteFin(i,.CIck 

640 10 

641 11 ‘Screen PrevioikConBolSeFocus 

642 12 ForrtslInnSchoorroPropenyMaintSelfocus 

643 13 OoCmlFMidRecord Me.cmbC<xrseNiMTiber. . Tn», . True, acAI 

644 14 ‘DoCmd.DoMerajItomacFonTBar. acEdMsru. 10. , ocMenuVerTO 

645 15 

646 16 EnLbtiFMid.CIck; 

647 17 EatSub 

648 18 

649 19 EjT_b*iFrTxl_C»ek; 

650 20 MsgBoxErr.Descnpton 



651 21 Rbsim™ EalJiteFind.Clck 

652 22 EndSub 

653 23 

654 24 

655 

656 Form frmFindamBrkJProporty 

657 Code 

658 1 A«nbuto VB_Name • *FonT|_1rfTifuid»menlalPtopony* 

659 2 A»ibuteVBlCreatabk-True 

660 3 Amibuto VB.PredeclaredId • Tnje 

661 4 Albibute VB.Erpoeed > Fake 

662 5 Opton Compare Database 

663 6 Opton Eiptcil 

664 7 

665 8 PrivateSubCommand1S_Clck() 

666 9 

667 10 MsgSoxTHs is a bubari*, iblnlormabon. *T«$l»ng' 

668 11 

669 12 EndSub 

670 13 

671 14 Pnvato Sub bteCtese CtckO 

672 15 On Err« GoTo En_bteC>oae_Clck 

673 16 

674 17 

675 18 OoCmlCtoae 

676 19 OoCmd.OpenFormTmnMainteriancoSwilchboa/ir 

677 20 

678 21 EaUHrOaoe Ctck 

679 22 EatSub 

680 23 

681 24 Em.bteOoae.ack: 

682 25 MsgBox Err.Oescriplon 

683 26 Rewne EaU>teCloso_Clek 

684 27 

685 28 EndSub 

686 29 

687 30 

689 32 

690 33 OwnRAsIteardsel 

691 34 Set R - Me. R ecordselClone 

692 35 RFindFifsl *IFPropenyNa*T*_Piq . * 6 C»»(34) & 

693 Me'|cnt>FPrapertyfknBFirx11 & C»¥(34) 

694 36 Me Bookmark -RBootoiwk 

695 37 MetlcnteFPropsnyNanieFMidl . Nul 

696 38 MB.FPropertytkrna_PK.SelFocus 

697 39 

698 40 EndSub 

699 41 

700 42 PrrveleSubCcmmandll.CiekO 

701 43 ' Forcm user to' enter dak lor properly naiTte and deecnpbon 

702 44 n IsNtaiMe FPropertyNafne.PK. Value) Or lsHU{Me Dmcnpton Value) 

703 45 MelMkMieFiekl.Enabled • Fake 

704 46 MelOperabr Enabled- Fake 

705 47 KMLabellOVmble.Fake 

706 48 HMsublrmFundajTanaProperTy Visible - Fake 

707 49 MeisublrmFundamerkPrcpenyUslViaible - Fake 

708 SO MelcmbPotantalValue Visible - Fake 

709 51 MsgBo* "Vou met provide a Properly Name' and 'Doscfipton' 

710 beiora braking tie litedamonklequalon.* 

711 52 

712 S3 

713 54 

714 55 

715 56 

716 57 

717 56 

718 59 

719 60 

720 61 

721 62 

722 63 

723 64 

724 65 

725 66 

726 67 

727 68 

728 69 EndSub 

729 70 

730 71 Pmate Sub DoacrtekonJUterUpdakO 

731 72 

732 73 

733 74 

734 75 

735 76 

736 77 

737 78 

738 79 

739 80 

740 81 

741 82 

742 83 

743 84 

744 85 

745 86 

746 07 

747 88 

748 89 

749 90 

750 ForrmllmnFundarnBnkFrcperlylsitelrTTiFitedamBntalProperlyljsBValue FKRowSo 

751 ixce-stSQL 

7S 91 MeistteIrmFundamanlaProperiy.VBdJie. Fake 

753 92 MelsitelrmFundamoniBptopertybsiVikble « True 

754 93 

755 94 Eke 

756 95 s*Sa-*S£L£CTDiSRNCT*4Me'ManiioFiold4-FRaM 

757 96 

758 ForrT«)trrrFundaiT«n(aProper1y(9ii)1rmFt>idanierrtalPrDperty1cn<>Value_FK.RemSou 

759 re* - stSa 

760 97 MefsuPIrmFundamenaPraperty Vaible . True 

761 98 MolsctefrmFtMxlamenkPropertytjslVisible. Fake 

762 99 Efidll 

763 100 Efxl It 

764 101 

765 102EndSub 

766 103 

767 104 Pnvato Sub Forrrt_BeloretJpdab< Cancel As Integer) 

768 105 

769 106 (FiMidPropTiiTeSknp) - Now 

770 107 

771 108 End Sub 

772 109 

773 110 Private Sub FomruCiMTenO 

774 111 

775 1 12 Dmh stSOL As Sting 

776 113 

777 1 14 stSOL - •SEUECT MarvieFieid. Operator FROM FUMAjyCI^TAt^PflOPERTY 

778 W1CRE FPrapetlyNam_PK . ' 4 FttedPropIskme 

779 115 

780 116 



Den stSQL As Stxig 

' Forcea user to enter dak tor prcperly name and deocnpton 
If l4^MaFProperlyNkne_PK.Vahje)a liNtJ(Me.Oescnpton Value) 
Me>MarMieFi«td.Enal)ied • Fake 
Me*Operator Enabled - Fake 
MelLabellO. Visible. Fake 
MelsublrmFundamonlaPtoperty Visble . Fake 
Me<subfnnFui«lamen(aPropertyLst. Visible - Fake 

' Alows tie user b«uer voUes lor fie fundamental equalon 
Eke 

ktolMarmeFiekl Enabled . Tnie 
Me'Operator. Enabled. True 
MelLabellO. Visible - True 

II Formsllrmf iMidamonkIPTOperty Cperater Value . *m* Thai 
stSOL . -SELECT DISTINCT * 4 MelMannoField 4 * FRCW 



' Alows tie user to ontor vakass lor tie lundamontal equalon 
Eke 

MelMkMieFieid.Enabled. True 
MelCperabr Enabled . True 
MelLabellO Visible . True 

II FormatlrmFiMidamBnklPropefly Operator Value - *in* Then 
MelsitelrmFundamonkProperty Vistbla ■ Fake 
MelSLPfrmFundamsntBpropertyLisL Viable . True 

Eke 

MelcrrbPatBnbalValue. Visible . True 
Me'siiilrmFufidamentaProperly.Visible • True 
MelsiteirmFundBmenlaff’ropertyListViSible. Fake 
End If 
End II 



69 



781 

782 

783 

784 

785 

7B6 

787 

788 

769 

790 

791 

792 

793 

794 

795 

796 

797 

796 

799 

800 

801 

802 

803 

804 

80S 

806 

807 

806 

809 

810 

811 

812 

813 

814 

815 

816 

817 

818 

819 

820 

821 

822 

823 

824 

825 

826 

827 

828 

829 

830 

831 

832 

833 

834 

835 

836 

837 

838 

839 

840 

841 

842 

843 

844 

845 

646 

847 

848 

649 

850 

BS1 

852 

853 

654 

855 

856 

SS7 

858 

659 

860 

861 

862 

863 

864 

865 

866 

867 

868 

869 

870 

871 

872 

873 

874 

875 

876 

877 

878 

879 

880 

881 

882 

863 

884 

885 

886 

887 

8B8 

889 

890 

891 

892 

893 

894 

895 

896 

897 

896 

899 

900 

901 

90e 

903 

904 

905 

006 

907 

908 

909 

910 



17 ' Forcos user b eniBr (tola lor properly name and dascnpbon 

18 II lsMJ(Mo FPrapertyNan»_PK Value) Or ls74J(Me DescrlpHon Value) 

19 Me'MarlnePM] Enabled - Fake 

20 Ms'Operabr Enabled ^ False 

21 NtolLabellOVlsibtoaFake 

22 MeiSibUmFiaKtomantalProperty Vteibb = Fake 

23 Me<sublrmFiMlan«ntalPropertyUst. Visible = Fate 

24 

25 ' Alows be user t> enter values lor tie Imtontental ecruatoi 

26 Else 

27 M»<»ArinBFtold Enabled = True 

2S MolOperalor Enabled = True 

29 Me' Label 10 Visible s True 

X It FarrTBlIrrnFibdarnantolPrapariy Operator Value = *ln* Then 

31 ' Updato the PotonHal Value 1st 

32 Me'suMrtnFiardaroenbPToperty Visible = False 

X Mel mjblrmFitodaniBntoPropartyLlsl Visible = True 

34 sfrSQL = *SEUECT DISTINCT * & MeiAtarineField & • FFOM 

35 

FonisllrTnFun(tofrnniaIPTapertytsitolrTnFintornenblPropertyU5gValue.FK.ncm6o 
urce c S8SQL 

36 Eke 

37 ' updato Bto Potonsal Value Isl 

X strSQL = -SELECT DISTINCT * & Meilvbrineneld & * FROM 

39 

FornsllnnFundarranlaIPropenyl$(tolrrrFmlantontolPrapenylcrnbVatoe_FICnoiM5ou 

cesstSQL 

40 Me>sut)(rmFLVXto>rentoPrcpeny Visible c True 

41 Me'sublrmF(«torwntoPropenvljslVislbte = False 

42 End II 

43 

44 ' SeMocts to tie property hante TNs prewnts problem 
associabd M0i vitormg (he -Operator* ob)ecl 

45 FF>ropertyr4uT»_PK.Se(fcKus 

46 End 11 

47 

48 

49 

50 End Sub 

51 

52Prnaie Sito FPraperlyNamB_PKJUtonJt3dato() 

53 

54 Dim sirSQL As Siring 

55 

56 ■ Forces user to enter data lor properly name and descrtpDoo 

57 II IsNl 6(M6 FPropertyNarT»_PK.VaJus) Or lsl«jl(Me DescrIpOon. Value) 

58 MelManneFletoEnabled = False 

59 MslOperalQr.Enabtod s False 

eo MelLabonO. Visible = Fabe 

61 MelsitolrmFirxUmerKatPrcperTy.VlsIbto s Fake 

62 Me<sublrniFuidantentoiPropenyUst1Aslbto x Fake 

63 

64 ’ Alows tie user to enter vetoes tor tie lundamenbi equaSon 

65 Eke 

66 MaiNtortneFteld Enabled = True 

67 Me<Op«ator.Enabte(l > Tnje 

68 MelLabeliO Vbibte = True 

69 fl FormsIlmiFitedamenlalProperty Operator Vedue = -In* Then 

70 stSQL X -SELECT DISTINCT * & MelAterlneFleto & * FROM 

71 

Fom»!lmF(todamBnWPropBrlyI»iWnr'^»«laTOntoJProportyUs8Value_FK.FtowSo 
urce = stSQL 

72 MsisublrniFiaMtormntaPraperTy Vlslbte s False 

73 MelsuWrmFitodanwntoProportyLblVlsIbte = True 

74 

75 Eke 

76 stSOL = -SELECT DISTINCT - & MellvtarineFieid & * FROM 

77 

Formil IrmFundamentelProperty isttHrmFintomenialPtopeny lent) Value_FK. ftowSou 
ce X stSOL 

78 M0<sublrmFt»ytomontolProperty Vlslbte = True 

79 MelsuttrmFitodantentoPropertyUsl Viable * Fake 

80 Endll 

81 End If 

82 

XEndSub 

64 

85 Private Site ltobneF)ekt.^rterUp(tote() 

86 

87 Dun stSQL As Sblng 

88 

89 ' Update tw Potenlal Value 1st 

90 srSOLx -SELECT DISTINCT -&Me<MwteeFl«id &-FRCMMAF1NE- 

91 

Forms!lfTrFundamentolProper1y'»ublrmFtiteamontolProporiyLlsaValue_FK.RowSo 

ircexstrSOL 

92 

Farms ItimFundamenlalPropertylsubtnnFtmamen&lPropeny tcrrbValue.FK. RswSou 
caxsirSOL 
« 

94EndS(i> 

95 

96 PrlvabSito Operator JUter Update() 

97 

98 It FortTBlIrmFundarTtentolPropariy Operator Value = "In* Than 

99 Melstto(rmF(4idainontalPraperty Vslbte x Fake 

200 MelsuHrTTFtnbmentalProperlyUstVBlbtoxTruB 

201 Eke 

202 Me<sitilrnFvidamentaIPraperty Vlsibto x True 

203 MelaUtrnFindamenblPraper^List Vlslbte x Fake 

204 Endll 

205 

206 End Sub 

207 Prtvato Site btiCtotete.CackO 

208 On Enor GoTo Efr.btoDelete.CkA 

209 

210 

211 DoCmdDoMmiitem acFormBar, acEdMaru, 8. , acManuVerTO 

212 OoCmdDoMvultem acFormBar. acEdlMeru. 6. . acMerteVerTO 

213 

214 EkLbtiDeteto.CIcIc 

215 EdlSub 

216 

2 1 7 Err.br D«ie»i_C*clt 

218 lAgBoErrOescripOon 

219 Ftosune EkLbbOetete.CIck 

220 

221 End Sub 

222 Prntoli Site CorTrr«nd14_Clck() 

223 On Error GoTo ErT_ConTimn(JI4_Cicl( 

224 

225 dm stOiaSlr As String 

226 Dim PrevCl As Contol 

227 Const ERR_OejNCTCXIST > 2467 

228 Conn ERR.06JMjrSET x 81 

229 

230 S«l PrevCl x Screerv PrmdotBConcrol 

231 

232 II TypeOt PrevCl Is Tnfiox Then 

233 sOialSt X lll(VarType(PrevC51) > V.NULL PrevCl. “) 



91 1 234 Ekell TypeOI PrevCl Is Us£ob Then 

912 235 sOaSb xlfl(VarType< PrevCl) >V_NULL PrevCl “) 

913 236 Ekell TypeOI PrevCl Is Comboeox Then 

914 237 sOaSt x lll(VarType( PrevCl) > V_NULL PrevCl, “) 

915 238 Eke 

916 239 sS>aS» x “ 

917 240 Enl II 

918 241 

919 242 Appicaton Rm *ullty vAbJlUtoCHar. stDIaEt 

920 243 

aei 244EkLCormtond14_acl«. 

922 245 EklSub 

923 246 

924 2t7Efr_CormBndl4_Clclc 

925 248 II (Err x ERR.OBJNaTEXIST) O (Err x ERa.<»JNCrrSED Then 

926 249 ResieneNeat 

927 250 Endll 

928 251 NtegBox Err Desenpten 

929 2S2 Rbsiitw EidLCorrsitondU ack 

330 253 

901 2S4EndSub 
932 2S5 

903 256 Private Sub Operator _EnterO 

934 2S7 

935 258 II lvte.Operator Value = ‘In* Then 

906 259 Msgto -Ihe in’ operator is not changaabte It a renwed by 

907 deteing Ihe properly. *. lAdnlormalon. *Uiaulhonzed Ac Ion- 

938 260 sublrmFieidamentoiProperTyLisLSelFocus 

909 261 Endll 

940 262 

941 263EndSub 

942 

943Fanrt IrmCenerateReporl 

944 Code 

945 I AOlbuteVB_Nafnex*Forn\_lrmG6nerateflepofr 

946 2 ASribute VB.Crealabte x True 

947 3 ASrlbuteVB^PradectoredWxTrue 

948 4 AOnbuteVB.Ejlxteod X Fake 

949 5 Option Compare Oabbase 

950 6 OpBon Eiplcil 

951 7 

952 8 Prhate Sub btiAssigrvTienlReporL.Clcl(() 

953 9 

954 10 DoCmd CpenFtoporl -rptasagnedkterines', acViewPreview 

955 11 

956 12 EndSub 

957 13 

958 14 Private Sub btoEntyLeveiSchooi.CickO 

969 15 

960 16 OoCmdOpenReport-rptEnlryLeveiSchoor. acVlowPreview 

961 17 

962 18 

963 19 End Site 

964 20 

965 21 Private Sub btnEkLCicliO 

956 22 On Error GoTo ErrJitiEkLClck 

967 23 

968 24 

969 25 DoCmdCtose 

97D 26 

971 27 EjdLbinEjdLCIcK; 

972 28 Eki Site 

973 29 

974 X> En^bliEkLCIcJt 

875 31 M$gBo( Err DescrIpOon 

976 32 Rasttote EidLt«iEkL.Cick 

977 X 

978 34 

979 X EndSub 

960 X 

981 37 Private Sub bteUtiassi7ia(MrineReport_CkckO 

962 X 

983 X DoCmd OpenReporl -rptltussiTiecMarines'. acVlePwPreviewi 

984 40 

985 41 EndSub 

986 42 

967 43 Private Sub Cort»nand8_ClckO 

988 44 Ofi Enor GoTo Efr_Comn»nd8_Clck 

989 45 

990 46 Dim sOocNarTte As Stmg 

9BI 47 Dim sUnkCnterla As Sfrsig 

982 48 

990 49 ' dose tie cvreni form 

994 SO DaCmdCtoee 

995 51 ' Open specJlied form 

996 52 stDocktone x TimRC>lvLlutelri_Swltottiote(f 

997 X DoCmd OpenForm stDoettome. . . stUnkOrlterta 

966 54 

999 55 EkLCormtoodS.CIek- 

1000 56 EktSub 

1001 57 

1002 58 En_Corm«nd8_Clck. 

1003 59 MsgBoxErrOeocrlpeon 

1004 60 Ftesume EkLCamrr«ndB_C3ck 

1005 61 

1006 62 EndSub 

1007 

1008 Form fnrttTporl/Ej^arlSwiKhboard 

1009 Code 

1010 1 Ambute VB.NKTto X -Fon7\_trrrlmporVEJtoQr(Swittt)oar(f 

101 1 2 Ambute VB.Craatobte x True 

1012 3 Ambute VB.Pradeclvedld x True 

1013 4 Ambute VB.Eitooeod x Fabe 

1014 5 Opion Compare Oabbase 

1015 6 Cpion Exp8ca 

1016 7 

1017 8 Private S(l> tmEkLCIcliO 

1018 9 Cn Error GoTo EfT_bevEkt_C»ck 

1019 10 



1021 

1022 

1023 

1024 
1CB5 
1026 
1027 



1000 

1X1 

1032 

10X 

1034 

1035 

1036 
1X7 
1008 
1009 
1040 



12 DoCmd.Ctase 

13 

14 EkLbtoEkLClck. 

15 EkISub 

16 

17 Err.beiEjlLCIck. 

18 MgBox Err.Oaacnpbon 

19 Roaurr« EkLMiEteLClck 

20 
21 

22 EndSito 

23 

24 Private Site bmEibonRDS CIckO 

25 

26 Applcaion. SelOplan ’Confirm Ac Ion OLtones*. Fabe 

27 DoCmd. SafWamIrvgs (Fabe) 

28 ’ Ejtoorb as^rnnenb to RDO M nte 

29 ErporlRDS 

X Archivas dab from tie Ateruve and aas i yvrTwt bbtea Ivaving repon 
(totes loss tvan tie cvereni dab 



70 



1041 

1042 

1043 

1044 

104S 

1046 

1047 

1046 

104d 

10SO 

10S1 

10S2 

10S3 

1054 

1065 

1056 

10S7 

1058 

1050 

1060 

1061 

1062 

1063 

1064 

1065 

1066 

1067 

1066 

1069 

1070 

1071 

1072 

1073 

1074 

1075 

1076 

1077 

1070 

1079 

loeo 

1061 

I0S2 

1003 

1004 

1005 

1006 

1007 

1000 

1089 

1090 

1091 

1092 

1090 

1094 

1085 

1096 

1097 

1090 

1099 

1100 

1101 

1102 

1103 

1104 

1105 

1106 

1107 

noe 

1109 

1110 

1111 

1112 

1113 

1114 

1115 

1116 

1117 

1110 

1119 

1120 

1121 

1122 

1123 

1124 

1125 

1126 

1127 

112B 

1129 

11X 

1131 

1132 

1133 

1134 

1135 

1136 

1137 

1138 

1139 

1140 

1141 

1142 

1143 

1145 

1146 

1147 

1146 

1149 

1150 

1151 

1152 

1153 

1154 

1155 

1156 

1157 

1158 

1159 

1160 

1161 

1162 

1163 

1164 

lies 

1166 

1167 

1168 

1169 

1170 



31 ArchtveOata 

32 Applcailoo.SelC|>lon “ConTirm AcBor (iJBriet*. True 

33 OoCm] SAlWarnings (Tnie) 

34 

35 EndSub 

36 

37 

38 Private Sut> CaTvnand^^ClckO 

39 

40 Oim stDacNams As Sring 

41 Own sUnlcCXtafia As Sinng 

42 

43 An^caBonSeiOplon 'Conlrm Acton Ojeries'. False 

44 OoCrrel SelWarnings (False) 

4$ ' Inpons tee RD1 rite 

46 impoftfOl 

47 Af)picaton.SeiOplon 'Confirm Acton (Xieiies*. Tnie 

48 DoCmd SelWarnings (True) 

49 

50 ' Close tee currant form 

51 DoCnU.Ctoso 

52 'Open specitledlcrm 

53 stDocl^tete s 'IrmChangeGradOate* 

54 OoCml OpenForm stDocTtene, , . sajnkCritefla 

55 

56 EndSub 

57 

56 Private Sub Command4_Clcl4) 

59 

60 ' lirpons BNA.M tile 

61 AppieatoaSetOplon 'Contlrm Acton Queries', False 

62 OoCmd.SetWarnings (False) 

63 DoCml ftjiSQL 'DELFTE * FROM BNA^EXTRACT,' 

64 ItrporBNA 

65 AppIcatton.SelQplon 'Confirm Acton Queries', True 

66 DoCmd.SelWarrtngs (True) 

67 

66 End Sub 

69 

70 Private Sub C^xrmandS.ClckO 

71 

72 On Eff or GoTo Err Commarxffl^CUck 

73 

74 Oim stOocName As Sting 

75 Dim sflJnkCrUoria As Sting 

76 

77 ' Close tee currenl lorm 

78 DoCmd.Cbse 

79 ' Open spacilied lorm 

00 stDoc ftetre s 'trmROM_Ma<n_S«4icrboar<r 

01 OoC>nd.OpenFarm stDocName. , . stUnkCrltena 
82 

83 EJtLComrrandO.CIek. 

04 EjgtSub 

05 

06 EiT_ConwT»nd8_C»ck. 

57 MsgBox Err I3escnpean 

80 Resume ExtLConmandS.Clck 
09 

90 EndSub 

Form: IrmLogcaProperly 
Code 

1 Attebute VB.fteme a 'Form.IrmLogicalProperty' 

2 ARribute VB.Createblo = True 

3 Attibub VB.PredecivedId = True 

4 AOribute VB.BpotM) False 

5 Opton Compare Database 

6 Opton EtbOcIt 

7 

6 Private Sub bteCiose_Clck() 

9 Cti Error GoTo ExrjjteCtoso.CIck 

10 
11 

12 DoCmdCbse 

13 OoCmdOpenForm*lrmMalntonanceSv4tntioar<r 

15 EtdLbtOose.CXcic 

16 Eat Sub 

17 

10 E/r.btOose.OcIc 

19 MsgSm Err.Oescriptan 

20 Resume EttLbteClose.CSck 

21 

22 EndSub 

23 

24 Private Sub cm>Fi«lProp_Clck() 

25 

26 ' Adds tee selected lundamenial properly to tee logical equation 

27 Me Lo 9 calEqialon. Value = Me LogicalEquallon Value 0 
Me.cmbFundProp Value & ' ' 

28 

29 EndSub 

30 Private Sub crrbLogQper.CtcKO 

31 

32 Adds tee setectedlogcal operator to tee togcal action 

33 Me LoglcaEqualon Value = Me LogicalEquatan Vatoe & 

Me cmtlDgOpor Value 4 " 

34 

35 EndSub 
X 

37 PrMie Sub cnbLPropenylsteRteFlndJUtarUpdattO 

38 

39 Dim R As Recordset 

40 Se(R= MeRecordsetCtone 

41 RFindFtsi 'ILPropenyfteiTte.PK] * * 4 Chr(34) 4 
Mel|cfTtoLPrapervf4ameFind) 4 Ov(34) 

42 Me BootoTtefli 3 RBoolimwk 

43 Me'IctrtoLPropedyNamerindl = 

44 Me LPtopeflyteme_PKSelFociis 

45 

46 EndSub 

47 

48 Private Sub ConvnandlO.ClckO 

49 

50 ' Removes tee Iasi entry In tee logical equaSon 

51 

52 Dim stInNarm, stttedo As Sting ' Input nane 

53 Dim inGpacePos As Integer ‘ posiDon o( tee space 

$4 Dim I As Intager ' bop index 

55 OimbooResuR As Boolean 

56 Dim tigCcnverslon As Long 

57 DimvarConv AsVanant 

58 

59 

60 ' gel tee logical eitorasson 

61 stlnName = Me.LogK:a{Equanon Vabe 

62 

63 ‘Check tor 'MjT vatoe 

64 If StlnName o 'ttor Then 



1171 

1172 

1173 

1174 

1175 

1176 

1177 

1178 

1179 
1100 
1101 
1182 
1103 

1184 

1185 

1186 

1187 

1188 

1189 

1190 

1191 
11S2 

1193 

1194 

1195 

1196 

1197 
1190 

1199 

1200 
1201 
1202 
1200 

1204 

1205 

1206 
1207 
1200 

1209 

1210 
1211 
1212 

1213 

1214 

1215 

1216 
1217 
1210 

1219 

1220 
1221 
1222 

1223 

1224 

1225 

1226 
1227 
1226 

1229 

1230 

1231 

1232 

1233 

1234 

1235 

1236 

1237 

1238 

1239 

1240 

1241 

1242 

1243 

1244 

1245 

1246 

1247 
1246 

1249 

1250 

1251 

1252 

1253 

1254 

1255 

1256 

1257 
1250 

1259 

1260 
1261 
1262 

1263 

1264 

1265 

1266 

1267 

1268 

1269 

1270 

1271 

1272 

1273 

1274 

1275 

1276 

1277 

1278 

1279 
12 » 
1281 
1282 

1283 

1284 

1285 

1286 

1287 

1288 

1289 

1290 

1291 
129? 

1293 

1294 

1295 

1296 

1297 

1298 

1299 

1300 



65 

66 ' declare tee iemperary Sting as an array 

67 ReDIm stTerrp(0> As Sting 

68 

69 Find tee positon of tee first space 

70 IniSpacePos = InStfstlnName, ' ") 

71 

72 ■ Loop itedl no iiwfo spaces are louid InSt reterns 0 II tee 
space IS not toxted 

73 Do Itelt InGpacoPos s 0 

74 ' redimenscn tee array, acting anoteer otetront 

75 • UBound tete us now many etemonts teore atoady are in tee 

76 fleOim Preserve stTemp<UBound($tTenp) « 1) 

77 

78 'set tee new element to tee characters irom tee beginning pt 

79 sting ip to tee lirsi space UfS relLarts a number ol 
characters 

SO ' from tee beginning ol a sting 

81 sttTemp(Ue<»tod(sirToiTp)) » Tr«mS(LeltS< stlnName, IniSpacePos 

82 

83 now wove cepwd teese characters into tee name, they can 

04 renoved from tee original stmg Rights retoms a nurrtoor 

85 ’ characters from tee end of tee sting It Is tee n^tenst 

86 ' cTiaracters, teereiore we subtaci tee positon of tee space 

87 ' tee langte of tee stitrg. This ^s us tee number of 
characters remaining 

88 stlnNarrs = LTrlrrtf(Hgh($( stlnName, Len(st1nName) ■ 

89 

90 ’ find tee nett space 

91 IniSpacePos = InStfstlnName, ") O IniSpacePos = 
InStfstlnName, 'f) O IniSpacePos = inStfstlnl'teme, ')') 

92 

93 Utop 

94 

95 ' Remove tee last etemeni of tee array, unless there is only orw 
element IbR 

96 II UBoudfstTemp) > 1 Then 

97 HeOlm Preserve stTempfUBourdfstTenp) - 1) 

90 

99 ' Lfxp terou^ tee etoments ot tee array arto place teem back 
Into tee togcal equalon «pression 

100 For I = 1 To (UBouxkstTwrp)) 

101 stLtedO:=s»Ltido4 StTerrp(l)4" 

102 Me Lo 9 ca<E<|uallon Vatoe = stLtodo 

103 Nadi 

104 Else 

105 ' Set tee logical equalon equal to 'Ni^ 

106 Mo Logic^qua&on.VJue = '( ' 

107 End It 
106 

109 ‘ Set logcal equalon etpressian eguafto new value 

110 End II 

111 

112 End Site 

113 

114 Private Sub Command 1 1_Clcl<) 

115 

116 * Forces user to enter date lor properly narm and descriplon 

117 IMsNuKMb LPropenyNvne.PK. Vatoe) Or IsftolfMe Oescripton Vatoe) 

118 MstConrmande Enableds False 

119 Mel Commando Enabled s False 

120 MBlCommandlO.Enabted= False 

121 MetcrrbFundProp Enacted = F^ 

122 MelcmbLogOper Enabled 3 False 

123 Mel LoglcaEquaBon Enabled = F^ 

124 MsgBox *You musi provide a Prcpeny Name' and 'Oescriplon' 
beloro bulbing tee logical equaton* 

12 s 

126 ' Enters a '( * be tee first enty In tee togcal equalon if II Is 

127 Elsell IsfitolfMelLogcalEquaJton. Vatoe) Than 

128 MelCommandB Enatted = True 

129 Mel Commando Enatted = Tn» 

IX MelCorT»TBndlO.Enat)led = True 

131 MolcmbFundProp Enatted * Tiue 

132 MelcmbLogOper Enabted s True 

133 MetLogcaEquatoaEnabted = True 

134 MolLogcaEqualon. Vatoe ^ *( ' 

135 

IX ' Alcws tee user to enter vetoes Into tee tegcal equdlan 
137 Else 

IX ite'Conrmande.EnaUed a True 

IX MetCocnrervS Enabted = True 

140 M»*CorriTtend10.EnitolBd a True 

141 MsfcntoFurdProp Enabled = True 

142 MsIcmbLogOper Enabted a True 

143 MelLogcaEqualon.Enabied a True 

144 End II 

145 

146 End Site 

147 

148 Private Sub CatmenG Ctcki) 

149 

IX ' Adds tee ten brackel to tee bgtcal equaton 

151 Me LogicalEquatonVatoe = Me Logca£qua8onVatoe 4 '( ' 

152 

153 End Site 

154 Private Sub CorrmandO.CIckO 

155 

156 ' Adds tee right brackel to tee logical equaton 

157 Me.LogicalEquallonVatoe a Me.LogcalEgiabonVatoe 4 *) ' 

158 

159 End Sub 

160 Private Sub btiOeteto.ackO 

161 On Error GoTo En.btoOetete.Clck 

162 

163 

164 DoCmd.DoMenjltemacForTT£te, acEdilhtenu. B, , acMeniVwTO 

165 OoCml OoMerxjl tern acForn«» . acEdijMenu. 6. , acNtenuVerTO 

166 

l67Et<LbtiDolote.Ciclc 
IX EtdtSub 

169 

1 70 Err_btiOelete_Clclc 

171 t^gBox Err.Descrlpton 

172 Ftesume Et«LbteOetete_Cick 

173 

174 End Site 

ITS Private Sub Descriplon jUterUpdate() 

176 

177 ' Forces user to enter date lor properly name and descnplon 

178 It isNUfMe LProperiyName.PK. Vatoe) Or lsNul(Me Descrlptwi Value) 

179 MeiCcmmanG Enabled a False 

IX MelCommanG Enabted a False 

181 MelCorrmnUOEntfitod = False 

182 MeIcnteFundProp. Enabted a False 

163 MelcnteLogCpwEnabtod = Fabe 

184 MelLogcaEqualton.Enabled a False 

185 

186 ‘ Enters a '( * be tee first enty In tee tegcal equalon it il ts 

187 Elsell IsfitollMe'LogcaEqualioaVatoe] Then 
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1301 

1302 

1303 

1304 

1305 

1306 

1307 

1306 
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1319 
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1325 
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1329 

1330 

1331 
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1346 

1347 

1348 

1349 

1350 

1351 

1352 

13S3 

1354 

1355 

1356 

1357 

1358 

13S9 

1360 

1381 

1362 

1363 

1364 

1385 

1366 

1367 

1368 

1369 

1370 

1371 

1372 

1373 

1374 

1375 

1378 

1377 

1378 

1379 

1360 

1381 

1382 

1383 

1384 

1385 

1386 

1387 

1388 

1389 

1390 

1391 

1392 

1393 

1394 

1395 

1396 

1397 

1396 

1399 

1400 

1401 

1402 

1403 

1404 

1405 

1406 

1407 

1408 

1409 

1410 

1411 

1412 

1413 

1414 

1415 

1418 

1417 

1418 

1410 

1420 

1421 

1422 

1423 

1424 

1425 

1426 

1427 

1428 

1429 

1430 



IBB M*ICon¥nanOB Enabtad - Tru* 

189 htolCtfmBAdO En^tlad > Tiu« 

190 Ite'ConvHMidlOEnabM- Tnw 

191 M8‘crrbEun<f’rop.En«b**d - Tnj» 

192 MelerrOUgOpaf EnaOM • Tru« 

193 Me*Lo9C4JEquaton.EnaUod- TtiM 

194 MelLo9C4i£(iua»on. Vakj* - '( * 

196 

196 ' AOqms 8w us*r to •ntar vaiu4S into 8 m lo^cal aquaton 

197 Eb« 

196 Kte'ConvnaMB.Enabtad • Tnj« 

199 MalCon¥Twi09.En4Uad> Tiua 

200 htofComrrWKlIOEnabtod- Tnj* 

201 MaIcntoEuncProp Ertabtod • Tru* 

202 MalerrbLogOpBf. Enabtod - Tfu* 

203 M0lLo9calEqiiiaton.En4U4da Tru* 

204 End If 

205 

206 End Sub 

207 

206 Pirvoto Sub Fonn_B«(of*Updato(C4nc«) Aa Intogv) 

209 

210 (LogPropTimaSbunp) > Now 

211 

212 End Sub 

213 

214Pfivii* Sub Fom_Cufr«ntO 
215 

218 * Pofc«» usar to «ntor data tof propaity ruvna and dMcnpton 

217 II larAil(hto.LPropartyNania_PK.Valua) Or liNul(llte Oascnpton.Vtaua) 

218 MalCorrrvnd9.Enabiad - Fotaa 

219 MalCorrmands EnaUad- Fai*a 

220 MelCoTVTtandlO.EnaUad > Faba 

221 Ms'cnrbFuTKProp.Enablad > Falsa 

222 Ma’crrbLogCbar Enabiad - Falsa 

223 Ma'Lo 9 calE<)uaton. Enabiad > Faba 

224 

225 ‘Entorsa‘(*batoaflrstanBy inSMlo^calaquatonif Ills 

226 Elsair lsMil(Ma'lj 09 MlEqua»on.Valua) Than 

227 MalLogicalEquaHon-Valua - *( ‘ 

228 

229 ' ASows toa usar to amar vaiuas into tia b^cal aquatcn 

230 Eba 

231 Mai CommandB. Enabiad > Tnja 

232 MalCo«rvnBnd9.Enablad> Trua 

233 Ma1CofTmand10.Enablad- Trua 

234 MalenbFundProp Enabiad - Ttua 

235 MaicntoLogOpar.Enablad > Trua 

236 Mai Lo^calEquaboa Enabiad -Trua 

237 End It 

238 

239 End Sub 

240Pnvala Sub LogicaiEe|uaaon_EntarO 

241 

242 ' Pravanb toa uaar from nwdling 8<a tomcat aquaton dracBy 

243 MsgSox *Tha lo^cal aquakon is ori^ modfiabis by 8ia abowa lo^cal 
aquaton buddar* 

244 DoCmdOoToConirol'LPropartyNafTia.PIC 

245 

246 End Sub 

247 

246PnvataSubLProparVhbma PK^ftorUpdatoO 

249 

250 ' Forcat usar to antar data for proparty rwxna and daicnpBon 

251 If lsrtoKMa.LProparvNama_pK.Vtaua) Or lsNuKMa.Dascnpkon.Valua) 

252 MalComnwrxlS EnaUad • Faba 

253 MalConmarxS. Enabiad - Faba 

254 MalCorrmandlO EnaNad . Faba 

255 MaIcntoFundProp Enabiad - Faba 

256 MalcntoLogCpar.Enablad- Faba 

257 Mai Lo^calEquakon. Enabiad - Faba 

258 

259 '&itarsa*(*batoafirstanrymtoal 09 calaquaeonifitis 

260 Ebatl lsNLil(Ma!Lo 9 caIEquabon.Valua) Than 

261 Ma!Comn»nd8.Enablad - Trua 

262 Ma>0ormtand9.Enablad - Tiua 

263 MalCommandlO.Enablad- Trua 

264 MalciTtoFurxf rop Enabiad - Trua 

265 Ma'errbLogCpar.Enablad - Tata 

266 Ms' Lo 9 caEqui*on. Enabiad - Trua 

267 Ma'Lo»calEqija»on.Valua - "( " 

268 

269 ' Alows toa usar to aniar valuat into Sm lo^cal aquahon 

270 Elsa 

271 MalCormtandS.Enablad - Tiua 

272 Ma'ComfT»nd9 Enabiad - Tiua 

273 Ma'Commandl 0. Enabiad - Tiua 

274 Ms'crttoFuixProp Enabiad - Trua 

275 Ms'crrbLogOpar Enabiad - Tiua 

278 Mb' Lo 9 cal£ciua»on. Enabled - Tiua 

277 End It 

278 

279 End Sub 

Form: trrnMamtanancaSwitohboard 
Coda 

1 Anrtbuto VB.Nama - 'Forrn.frrrMaintanancaSwtohboard' 

2 Attnbuia VB.Crastabia - Trua 

3 ABnbuto VB.Pradaclaradd - Tiua 

4 ABnbuto VB.Eiqioaad - Faba 

5 Opton Ccmpara Database 
8 Opton Expl«it 

7 

8 Pnvato Sub btoEot_Clcl<) 

9 On Error GoTo ErT_btoE*t_C6ck 

10 
11 

12 DoCmd-Oosa 

13 

14 ExLbtoExLCtclc 

15 Eat Sub 
18 

17 Err.btoExiLCIcIc 

18 MsgSox Err.Oascnpkon 

19 fT a s ta n a EaLb*iEaLC>ck 

20 
21 

22 End Sub 

23 

24 PnvBto Sub CoimxtndO.CIckO 

25 On Error GoTo ErT_Corm»andO_Clck 

26 

27 Dim siDocNama As Sbing 

28 Dim t&jnkCntana As Strng 

29 

30 ' Oosa Via currant form 

31 DoCand-Ctosa 

32 ' Opan tpaafiad form 

33 tiDocNama - TrmSehoofToPEF_Mairtr 

34 OoCrrxlOpanForm stOocNsma. . . sOjnkCntana 



1431 

1432 

1433 

1434 

1435 

1436 

1437 

1438 

1439 

1440 

1441 

1442 

1443 

1444 

1445 

1446 

1447 

1448 

1449 

1450 

1451 

1452 

1453 

1454 

1455 

1456 

1457 

1458 

1459 

1460 

1461 

1462 

1463 

1464 

1465 

1466 

1467 



1470 

1471 

1472 

1473 

1474 

1475 
1478 

1477 

1478 

1479 

1480 
1401 

1482 

1483 

1484 

1485 

1486 

1487 

1488 

1489 

1490 

1491 

1492 
1433 

1494 

1495 

1496 

1497 
1496 

1499 

1500 

1501 

1502 

1503 

1504 

1505 

1506 

1507 

1508 

1509 

1510 

1511 

1512 

1513 

1514 

1515 
1518 

1517 

1518 

1519 

1520 

1521 

1522 

1523 

1524 

1525 

1526 

1527 

1528 

1529 

1530 

1531 

1532 

1533 

1534 

1535 

1536 

1537 

1538 

1539 

1540 

1541 

1542 

1543 

1544 

1545 

1546 

1547 

1548 

1549 

1550 

1551 

1552 

1553 

1554 

1555 

1556 

1557 
1SS6 

1559 

1560 



35 

36 EaLCorrmandO.CIck. 

37 EalSub 

38 

39 Err.ContnandO.CIclc 

40 MsgBox Err.Dascnpton 

41 Pasiana EaLCommandO.Clck 

42 

43 ErtoStto 

44 

45 Pnvala SubComT«ndl2_ClcliO 

46 On Error GoTo Err.Commandl^CIck 

47 

46 Dim siDocNama As Sbing 

49 Dim »Oji*Cntana As Stnng 

50 

51 ' Oosa tie currant form 

52 OoCmdCtosa 

53 ' Cpan spaafiad form 

54 SiDocNama - 'trmSchoob’ 

55 OcCmdCpanFcrm siDocNama. . . sBjnkCnbna 

56 

57 EaLCorTfnand12_CSclc 

58 EatSub 

59 

60 Ert_Con¥Tiflndl2_Cick; 

81 MsgBcx Err.Dascnptcn 

62 Fteauma E»LCorr»r«ndl2_Clek 

63 

64 EndSub 

65 

66 Pnvala Sub Ccrrxnandl4_CtcliO 

67 On Error GoToErr_CoiTyTtandi4_aek 

68 

69 Dim siDccNama As Sting 

70 Dim slUnkCntana As Sting 

71 

72 ' Oosa tie currant form 

73 DoCmdCtoss 

74 ' Open spaafiad form 

75 SiDocNama- 'trmPEP 

78 DoCmdOpanForm siDocNama. . . siLnkCntana 

77 

78 Eat.Commmdl4_CSclc 

79 EatSrto 
60 

81 Err_CoiTmsnd14_Clck: 

82 MsgBox Err.Dascnptcn 

83 nasume Eat_Corrr«nd14_Clck 

84 

85 EndSub 

86 

87 Pnvala Sub Ccn*rand2_ClckO 

88 On Error GoTo Err_CctTvrand2_Ckck 

89 

90 Dim siDocNwna As Sting 

91 Dim s&jnkCntana As Sting 

92 

93 ' Ctoss tie currant form 

94 DoCmdOosa 

95 ' Open spaafiad form 

96 stOocName - 'trmFundamantalProparty* 

97 OoCnxJ CpanForm siDocNama, . . siUnkCntena 

98 

99 EaLConvrand2.Ckck. 

100 EatSub 

101 

102 ErT_Comman<C_Ciclc 

103 MsgBox Err.Dascnpton 

104 Basuria Ea(_Comrar«t2_C>ck 

105 

106Er«dSi4> 

107 

108 Pnvata Sub Cor™nand4_Ciek() 

1090n Error GoTo Err_Command4_CSck 
110 

111 Dim siDccNwna As Sting 

112 Dim slLinlcCntana As Sting 

113 

114 ' Oosa 9ia currant form 

115 DoCmdOosa 

116 ‘ Opan spaafiad form 

117 SiDocNama - ‘Irmto^cslProparly' 

118 DoCmdCpanForm siDocName, , , sfljnlcCntana 

119 

120 EaLComtnand4_Ckdc 

121 EatSi4> 

122 

123 Err_Con*nand4_Ciclc 

124 MsgBox Err.Dascnpton 

125 ^suma Eat_Comtrtand4_Cick 

126 

127 End Sub 

128 

129Pnvato Sub Comn«nd5.Ctck() 

ISOOn Error OoToErr_Cotmtond6_Clck 

131 

132 Dim dDccNwna As Sting 

133 Dim sBLjnkCntana As Sting 

134 

135 ‘ Ctoss tto currant form 
138 DoCmdOosa 

137 ‘ Open spaafiad form 

138 slODcNama - 'IrmSchooTToProparlyMBinr 

139 DoCmdCpanForm SiDocNama. . , slLinkCntana 

140 

141 Eat_C u rn M ai xto _Cielc 

142 Eat Sub 

143 

1 44 ErT.ComrandS.CicIc 

145 MsgBcx Err Doacnpton 

146 Flasuma EaLCccr»Ttand 6 _Ock 

147 

146 End Sub 

149 

150 PnvBto Sub Ccmmand8_Clck() 

151 On Error GoTo Err_Con«nartoB_Ciek 

152 

153 Dim sOocNama As Stmg 

154 Dim sBjnkOitana As Sting 

155 

158 ‘ Oosa ttocunanl form 
157 DoCmdOosa 

156 ‘ Opan spaafiad form 

1 59 sOocNama - ■frmODM.Mtaft.Swi thboanf 

160 DoCmdCpanForm SiDocNama . , sBjnkCntana 
181 

162Eal_C o iniia ma Ctclc 

163 EatSub 

164 
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1561 

1562 

1563 

1564 

1565 

1566 

1567 

1568 

1569 

1570 

1571 

1572 

1573 

1574 

1575 

1576 

1577 

1578 

1579 

1580 

1581 

1582 

1583 

1584 

1585 

1586 

1587 

1588 

1589 

1590 

1591 

1592 

1593 

1594 

1595 

1596 

1597 

1598 

1599 

1600 

1601 

1602 

1603 

1604 

1605 

1605 

1607 

1606 

1609 

1610 

1611 

1612 

1613 

1614 

1615 

1616 

1617 

1618 

1619 

1620 

1621 

1622 

1623 

1624 

1625 

1626 

1627 

1628 

1629 

1630 

1631 

1632 

1633 

1634 

1635 

1636 

1637 

1638 

1639 

1640 

1641 

1642 

1643 

1644 

1645 

1646 

1647 

1648 

1649 

1650 

1651 

1652 

1653 

1654 

1655 

1656 

1657 

1658 

1659 

1660 

1661 

1662 

1663 

1664 

1665 

1666 

1667 

1668 

1669 

1670 

1671 

1672 

1673 

1674 

16^ 

1676 

1677 

1678 

1679 

1680 

1681 

1682 

1683 

1684 

1685 

1686 

1687 

1688 

1689 

1690 



Rbwjtio E;4t.t*i4mplPlus_Clc»5 



165 EfT_ContTBfxB_Ciclt 

166 MsgBoxErr.OasalfAoo 

167 ftesufw E;dLC«Ttiiaivffl_C>ck 

168 

169 End Sub 

Form trmPEF 
Code 

1 Avibute VB_f4ar» = •Forni_fr/nPEr 

2 Atribute VB_Oealabl 0 = True 

3 Attibule VB.PredocJaredId = True 

4 Attibule VB_E) 4 »ied = False 

5 Opian Compare Da&basa 

6 Cpflon Ej?3lcit 

7 

8 Private Set) ci?t)PelFln<l>)tertJpdateO 

9 

10 OlfTi R As Recordset 

11 Set R = Me HecordsetOone 

12 RFlndFirsl *|PEF_PKJ = * A Cbr(34) & Me([cmbPeJFindl & Cr»{34) 

13 Me Bookmarks RBooterark 

14 htellcrrbPetRnd] = Mil 

15 Me PEF.PICSelFocus 

16 

17 End Sub 

18 

19 Private Sub For n\_BeloreUpdate( Cancel As Integer) 

20 

21 |PEF_TlmeSfanpJ = Nov* 

22 

23 End Sub 

24 

25 Private Sub Fomi_CuiTentO 

26 

27 OtmsaSQLAsSUng 

28 

29 ' Update tee PEF Usf 

30 srSQL = -SElf CT DISTINCTRCW IMAR1NE].|PEF]FRQM MARIFC If FT JOIN PEF 
ON IMARINEl lPEF] = (PEF].|PEF_PKJWHERE {|PEF].(PEF_PK] Is FM)OROER BY 

31 Kte PEF.PK.RoiMSaijrce s stSQL 

32 

33 EndSub 

34 

35 Private Sub PEF_PKJMterUpdate() 

36 

37 OlinstrSQLAsSteng 

38 

39 • Update tee PEF Lst 

40 stSQL = ’SELECT DISTlNCTFCW IMARlfC].(PEF]FROM MARINE LEFT JOIN PEF 
ON (MARINE).{PEF1 = [PEF] |PEF_PK|WHERE (jPEF] |PEF_PK) Is MJ)ORDER BY 

41 KtoPEFJ>K.RoMiScurcess»SQL 

42 

43 EndSub 

44 Private Site bteOeleb.CIchO 

45 On Error GoTo Err_bteOelete_Cich 

46 

47 

48 OoCmd DoMenultem acFormBar, acEdMani. 8. , acMenuVerTO 

49 DoOnd OoMenuJtem acFormBar, acEcilMeru, 6. . acManuVerTO 

50 

51 ExILbteDeteto.dcIc 

52 ExJlSite 

53 

54 ErrJ)teOolete_Cidc 

55 MsgBoxEir.Oescrtptton 

56 Ftesume EslLbteDelete.ClCk 

57 

58 EndSub 

59 Private SUb bteOoso.ClckO 

60 On Enor GoTo Err bteOose Clck 

61 
62 

63 OoCmdCkse 

64 OoCmd OpenForm ’irmMaintenanceSvMtchboard' 

65 

66 E;dL.blnC)ose_aic)c 

67 ExllSub 

68 

69 Err.bteClose.CIctc 

70 MsgBoxErrOascripbon 

71 Resume Ej4LbteClose_Clck 

72 

73 EndSub 

Form: IrmPrepareAndEwcuteSoNer 
Code 

1 Attibute VBJ^ame s *Forrn_lrmPrepareAndE»ctitaSolwr' 

2 Attibute VB.Craatable z Tme 

3 Attibute VB.PredsciaredId s True 

4 Attibute VB.Eigiosed s Fabe 

5 Option Compare Database 

6 OptonEitelcll 

7 

8 Pnvate Sub b»iAMPU.ack() 

9 On Error GoTo Eir_bteAMPi,^CIck 

10 

11 AmplOata 

12 

13 Dim stAppName As String 

14 

15 'slAppNwTte s ’C:\ToBeRdm\AnpMn\ampMin.esB' 

16 stAppName = ’C:\To8eRflrritAirpMn\arrp.bar 

17 CalSbel(stAppr«uTte. 0) 

18 

19 ‘MsgBox 'Enter intD tee command ine Include rttnnteT 

20 

21 ExlU)t»Akf>t^C*cJt 

22 ExltSub 

23 

24 EfT_bteAMPL_aclt 

25 MsgBox Err.Ooscripaon 

26 Resume Ej4LbteAMPU.CIck 

27 

28 EndSub 

29 

30 Private Sub bteAmpPbs_Clck() 

31 On Error GoTo En_bteAitt>Pkis_C8ck 

32 

33 AmplOata 

34 

35 Dim stAppAteme As S^ing 

36 

37 StAppName = ’CAAMPLPLUSUIM’LPLUS EXE rdmante* 

38 CalSbei($tAppName. 1) 

39 

40 ExlLbteAmpIPIus.Clclc 

41 Exit Sub 

42 

43 Err_bteArpPUs_CIck: 

44 MsgBox Err.Oescrlpdon 



1691 45 

1692 46 

1693 47 End Sub 

1694 48 

1695 49 

1696 SO Private Sub bteRebjrnPrevwus.CackO 

1697 51 On Eiror GoTo Err_blnRoturnPrevlous_CSck 

1698 52 

1699 S3 

1700 S4 Dim slDocName As Siring 

1701 55 Olm stUnkCrlUrla As Slnng 

1702 56 

1703 57 ' Close tee cuirenl form 

1704 58 OoCmd Close 

1705 59 ' Open specUled term 

1706 60 stDocl^me = *trmPreprocassing&E»cutonS*witchtioarcr 

1707 61 OoCmd. OpenForm slDocName. . . stUnkCriteria 

1708 62 

1709 63 EidLbtnRekimProvltxis dele 

1710 64 Exit Sub 

1711 65 

1712 66 Err_bteRotixnPrev*ous_dck 

1713 67 MsgBcDC Err .Oescnpflon 

1714 68 Reseme E;dt_b(nRenAnPr«ilous.Clck 

1715 69 

1716 70 

1717 71 EndStte 

1718 72 

1719 73 Private Sub Corrmanri4_Clck() 

1720 74 AppIcaboaSelOplon ’Conlirm Actlor djenes*. False 

1721 75 OoCndSetWarrlngs (False) 

1722 76 DoCnxl.RjvSQL’OELErE* FROMAMPLRESULT.’ 

1723 77 Ampl.flesult 

1724 78 Appicadon.SetOplan ’Conlirin Actlan Quones*. True 

1725 79 OoCmd. SolWteTings (True) 

1726 60 

1727 81 EndSub 

1728 62 

1729 83 Private Sub CofTtnand7_ClckO 

1730 84 On Error GoTo Err_ComrHnd7_Clck 

1731 85 

1732 86 Dim SlDocName As Sring 

1733 87 OlmsBJNiCrIterlaAsSteng 

1734 80 

1735 89 ' Close tee current form 

1736 90 DoCmd.Ctose 

1737 91 ' Open specified form 

1738 92 sOocNames’frmAn^zeResuT 

1739 93 OoCnxl. OpenForm sIDocNarTte, . . stUnkCrlteria 

1740 94 

1741 95 ExILComnwtfT’.Clek 

1742 96 Ei«l Sub 

1743 97 

1744 98 Err_Comm»xJ7_ddk; 

1745 99 EfT.Oo3crlp8on 

1746 IX Resitne EidL.ConTnand7_Clck 

1747 101 

1748 102 End Sub 

1749 

1750 Form IrmPrapracessIngAEwcudonSwttchboafd 

1751 Code 

1752 1 Attibute VB.Narrte = •Form_IrmProprocesjunga£»cutlonSv*ltrteoar<r 

1753 2 Attibute VB.CreataUe = True 

1754 3 Attibute VB_Predecteredld » True 

1755 4 Attibute VB.Eiposed = False 

1756 5 Opton Conpare Datebase 

1757 6 Oplon Elfiicll 

1758 7 

1759 8 Private Sub bteEidLCSekO 

1760 9 On Error GoTo Err bteE;*LCIck 

1761 10 

1762 11 

1763 12 OoCmd. Ctese 

1764 13 

1765 14 ExILbteExJLCacIc 

1766 IS Etet Sub 

1767 16 

1768 17 Err.bteENLCIcIc 

1769 18 MsgScR Err Oucripbon 

1770 19 ftestxne ExILbte&dLClck 

1771 20 

1772 21 

1773 22 EndStte 

1774 23 

1775 24 Private Sub bteflBctessilicalori_ackO 

1776 25 On Error GoTo ErT_bteReclasstlicallor_C»ck 

1777 26 

1778 27 Olm SlDocName As sung 

1779 28 Olm sOJnkCrlterla As Slnng 

17B0 29 

1781 30 • Close tee current form 

1782 31 OoCmd Close 

1763 32 ‘ Open specified form 

1784 33 siDocNante >= ’trmReclassllicallon' 

1785 34 OoCmd OpenForm sJDocName. . . sdjnkCrtterla 

1786 as 

1787 36 ExILWriReclassiflcallon dele 

1788 37 Exit Sub 

1789 38 

1790 39 Err_bteReclasslltcaBor_C*ck; 

1791 40 MsgBox Err.Descnpaan 

1792 41 Rasime E;dLt>WtectesslflcaBon_dck 

1793 42 

1794 43 

1795 44 EndSub 

1796 45 

1797 46 Private Sub DteScriteMannoOalaLCickO 

1798 47 On Error GoTo Err.binScrUhfcfartneDa^CSck 

1799 48 

1800 49 Olm stOocName As Sbing 

1801 50 dm sBjnkCnteria As Steng 

1802 51 

1803 52 • Close tee current lorm 

1804 53 OoCml Ctosa 

1805 54 ' Open specified lorm 

1806 55 sJDocNante = ’lm£crubMarlne* 

1807 56 OoCmd.QpenFormslDocriteme. . . stLinkCrlteria 

1808 57 

1809 58 E;dLbtnScrubMartneOata_Clclc 

1810 59 Exit Sub 

1811 60 

1812 61 Err_btnScnteMarlneOata.CtcJc 

1813 62 AtegSmr Err Oescrlpaon 

1814 63 Resume ExlU>teS«u»tenneOala.Cick 

1815 64 

1816 65 EndStte 

1817 66 

1818 67 Private Sub hteSpeclalAss)gnment_dck<) 

1819 68 On Error GoTo Err_bteSpecialAss»gnmenL.dck 

1820 69 
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1S1 

1822 

1823 

1824 

182S 

1826 

1827 

1828 

1829 

1830 

1831 

1632 

1833 

1834 

1635 

1836 

1837 

1838 

1839 

1840 

1841 

1842 

1843 

1844 

1845 

1846 

1847 

1848 

1849 

1850 

1851 

1852 

1853 

1854 

1855 

1856 

1857 

1858 

1859 

1860 

1861 

1862 

1863 

1864 

1865 

1866 

1867 

1868 

1869 

1870 

1871 

1872 

1873 

1874 

1875 

1876 

1877 

1878 

1879 

1880 

1681 

1882 

1883 

1884 

1685 

1686 

1887 

1888 

1889 

1890 

1891 

1892 

1893 

1894 

1895 

1896 

1897 

1898 

1699 

1900 

1901 

1902 

1903 

1904 

1905 

1906 

1907 

1906 

1909 

1910 

1911 

1912 

1913 

1914 

1915 

1916 

1917 

1918 

1919 

1920 

1921 

1922 

1923 

1924 

1925 

1926 

1927 

1928 

1929 

1930 

1931 

1332 

1933 

1934 

1935 

1936 

1937 

1938 

1939 

1940 

1941 

1942 

1843 

1944 

1345 

1946 

1947 

1948 

1949 

1950 



70 Dim sOocNuns As Sring 

71 Dim s&jnlcCnlsns As Ssing 

72 

73 ■ Close t» cvrron! lorm 

74 OoCnttOosA 

75 ' Opon spocififld lorm 

76 sIDocNmtv • 'trmSpectslAssTSTvnr 

77 OoCntl OponForm HOacNweo . . sUsikCfitens 
70 

79 6jot_b*'SpscislAs»gnnwnt_C*clc 

80 
81 

82 E/f_bfr»SpocislAssyirT«nt_Clclc 

83 MigBox En OoscnpSon 

84 Fteuns EaLbs^SpscislAssi^wnanl^aick 

85 

86 

87 

88 EndSti) 

89 

90 FVnaisS(i>ComnBrvC_ack() 

91 CP &for GoTo 6jf_C«T»tWKl2_Cick 

92 

33 Dim sOocNvna As SPng 

94 DimslinkCntefis AsSmng 

95 

96 ' Ctosa tw cursnl lorm 

97 DoCmd.Ctoss 

98 ■ Open spocifiod lorm 

99 stOocNMne • 'IrmcIsssQLxitaPervsRyAndrir 

100 OcCrm. Opon T orm slOoeNsme. . . sdjnkOilBns 

101 

102 EjH_C“T»™od2_Clclc 

103 EjitSti) 

104 

1 OS Erf_Co«Tmsr*12_CSck 

106 MsgBos Err Osscnpton 

107 Rssut* E»LCorman(C_Clck 

108 

109EndSii> 

IIOPrnAto S(i> CetrraraM.CkckO 
111 

112 App*eslofi,S*iCpton*CoriJ»mAc»onQj8r«', Fibs 

113 DoCmj SelWsmnga (Fstae) 

114 DoC>iidFU»S(XT)eL£TC*FFOuiAMPl^RESU.T.- 

115 AmpLFtosiJ 

116 Ap^akon SslOplKiri ‘ConIsmAclon (^jerias*. Tnjo 

1 1 7 DoCmj S«(W«nn9s (True) 

118 
119 

120End&i> 

121 

122 Prrvato S(i> C u iii s M uIC .OckO 
1230) Error GoTo Erf.C on rrwid G .Ock 

124 

125 DimsOocNwrwAsSking 

126 Dim stjnkCritsns As Sttmg 

127 

128 ■ Ctose tie cu7onl lorm 

129 OoCmdCtoss 

IX * Open speci5ad (arm 

131 siDocNMTie « ‘IrmPrepAreAndEssculBSoAer' 

132 OoCml.OpenForm sJOacNsmB. . . sdjnkCritans 
IX 

134 EJit.Cain«nd6_Ctclc 

135 EafSii) 

IX 

1 37 Ert_Com»ndG.C*cJc 
IX En'.Oescnpian 

IX FieaLne EaLCormandS.Ctck 
140 

l4lEnd&i> 

142 

143Pnvsls SU> C mnnnJB _Ock() 

144 Gh Error GoTo Erf_C o i 1 1 r Mnd 8,Qck 

145 

146 DimsCock4vn»As Srng 

147 Dim stinkCnlsns As Semg 
146 

149 ’ Ck3Se re ctSTont lorm 

IX OoCmdOose 

1 51 ' Open specified form 

152 siDocNiro • *lrmRDM_Maii|_S<Mk:hbaar(f 

153 DoCmd.OpenFormsiOocNwTe. , . sfljnkCriians 

154 

155 E»LComm«idB.CS«*: 

IX EjitS(i> 

157 

1 58 Erf _CofT«mnd8_CSclc 

159 lAsgBoxEfT.Dsscnpton 

IX Rbsistv EjoLCcrTTnsnd8_ack 
161 

162EndSii> 

Form lrmRDM_14sin_S»*thtoosrd 
Code 

1 Airihule VB_Nmt» - •Fornclm#IDM_Msin_Si«lchbo*r<r 

2 AlTitiula V8_CrMGibk» - True 

3 Alkibule VS.F^ededaredd • True 

4 AVibuls V8_Ejpoeed • Fsbe 

5 Opkon Corrpere Dstatase 

6 Opkon Ejpficit 

7 Pfiveto Sii> ConiT«mK>_CickO 

a 

9 Oi Error GoTo £jr_Comti»ndO_Clck 

10 

1 1 Om sOocNeme As Srng 

12 Own ■LmkCntsns As Srng 

13 

14 * Ckiee re cisrent ksm 

15 OoCrmCkMe 

16 ■ Open specified lorm 

17 stf)ocf*«inB - 'lTTnlrrpanrEj?wlStMthbo»f<r 

16 OoCtnl Openform uDocNwre, , . sILwikOilsna 
19 

70 E»t_CorTmBndO_C»ck: 

21 ExtSUi 

22 

23 Err_CofTfr«ndO_Cick; 

24 Msq6ox Err Descnpkon 

25 Flosisns E>t_Corrrr«ndO_Cick 

X 

27 End&i) 

X Piivete S*4>CorTTT«nd2_CSck() 

73 O Error GoTo Err_Comrt»nd2_Cick 
X 

31 Dim sCtocNsme As Srng 
S Dim sLir^cCnans As Srng 

33 

34 ' CkM re Cisrenl lorm 



1951 X OoCrm Ctose 

1952 X 'Open speafied lorm 

1953 37 siDocNiiiTB ■ "ImMHntoriarceSMCitiosrcr 

1954 X DoCrrd OpanFormslDocNsme. , sttjnkCntons 

1955 X 

19X 40 ExLComrtwxaLCkcfc 

1957 41 Eal Sti> 

19X 42 

1959 43 Err_Comrrwwl2_C5ck 

1960 44 fitagBox Err DescnpSon 

1X1 45 nasume E»LConrnwxC„C5ck 

1962 46 

1963 47 End&i> 

1964 48 Prrvele S(i> Commsnd4_CkCkO 

1965 49 Qi Error GoTo ErT_Con»nwid4_Clek 

1966 X 

1967 51 DimslOocNKme As Sttflg 

1968 52 Dim slUrkCntona As STing 

1969 S3 

1970 54 ‘ Ctose re cisrenl lorm 

1971 55 OoCnvlCtose 

1972 SS ■ Open ^jecified lorm 

1973 57 sOo c Nsime - 'trn^eprocessmg&EacufionSiMttiboercr 

1974 X DoCmd.O p en F ormsOocNMTwi. . . stLinkCnieris 

1975 59 

1976 X E4t_Cormw«M_Cick: 

1977 61 EwlStto 

1978 €2 

1979 63 Err.CorrwwM.Cidc 

1980 64 ktogBox Err. DsKnplon 

1X1 65 RBsume E*LConmMid4_Cfick 

1982 66 

1983 67 EndSiii 

1964 68 PrivotoS(i>ConsiwidG_Ckck() 

1985 63 Oi Error GoTo Err_Cofrr«nd6_CSck 

1986 70 

1X7 71 Dim stOocNwns As Sking 

1908 72 DimsJLinkCnlensAsSrng 

1989 73 

1990 74 ‘Ctoeerectsrenllorm 

1X1 75 OoCmlCtose 

1902 76 ‘ Open specified lorm 

1993 77 slDocNwre - 'ImAnslyziiFlesiir 

1994 78 DoCmdOpenFormsDocNMne. , , sajnkCnma 

1995 79 

19X W EJoLComnond6_Cfclc 

1X7 81 EjlISti) 

19X 82 

19X 63 Err_Corr«r«nd6 Ock. 

2000 84 kbgBcx Err Descnptir 

2001 85 ReSLXre E4LCofTsiwid6_Ctck 

2002 X 

2003 87 EndSX 

2004 X Privsto Sito Conmwid8_C»ck{) 

2005 X CP Error GoTo Err.CofmandB.Ckck 

2006 90 

7007 91 Dim stOocNune As Stwig 

2008 97 Dim stLinkCnlena As Smg 

2009 X 

X10 94 ' Ctose re current lorm 

XII X DoCmdCtose 

X12 X ' Open specified form 

X13 97 sOocfitome • "IrrTCanersteflBpotf 

X14 X OoCmdOpenFomi sOocNwne. . , stljr9(CnUns 

X1S X 

X16 iXE»LConn»ndB_CSck: 

X17 101 EjilSii) 

X10 102 

X19 l03Err_CommBnd8_C5ck. 

2QX 104 kfegBox Err.Descnptcn 

2021 10S Ftoasne E»t_ContnBndB_Cfck 

2CQ2 IX 

2023 107EndStto 

2024 IX Pnveto Sii> br£j«LClck() 

2025 IXCto Error GoTo ErrJ)»i£»LCick 

2026 110 

2027 111 

2028 112 DoOnd-Ctoee 

2029 113 

20X 114EjiU>*'6»Lack: 

2031 115 Enl&to 

20CB 116 

2033 1l7Err_bOiE«LCk:k 

2034 lie MsgBox Err OeecnpSvi 

20X 119 Ftosune E»t_br£j»LC5ck 

20X IX 

2037 12lEndS(i) 

20X 



2040 

2041 

2042 

2043 

2044 

2045 

2046 

2047 

2048 

2049 

2050 
2X1 

2052 

2053 

2054 



2069 



2X1 



2063 

2064 



2056 

2057 
2068 
2069 
XX 
X71 
X72 
X73 
X74 
X75 
X76 
7077 
X78 
X79 
2080 



Code 

1 AOibuto V8 _Nwtwi ■ 'Forrn.IrmRscIsssificsIion' 

2 AirbulB V8_CrestoJ3le - True 

3 AlVibuto V8_PredectoredId - True 

4 ADibuts VS.Eiixieeda Fabe 

5 Cpton Compsra Oatabese 

6 Opbon Eipkcil 

7 

8 (Rivals cmt>aass^4sTt>er>7tBrlJpdato( ) 

9 

10 Dim sbCormen As Skwig 

12 Me btRaporfDati - Ms cntiCkassNuntier CaiurTK2) 

13 Ms bMCC . Ua cniiCto3sAUirw.ColUTii(4) 

15 ‘ Corwsn tie facal year to a liao dl^t rxsTiier tor RD3 Ftla 

16 stComert • CSt(Me cntOaaaMjrtiar ColLiTn(3)) 

17 stConwon - R^stConvort. 2) 

18 Ms tXFY • an«i*Catnier1) 

19 

X Mo BtAMstw^o^Type « "FT 
21 

22 End&i> 

73 

24 ^ivati S(i> cmbCtoatftsTtoer Entor() 

25 

7$ Dim sfrSCL As Srng 
27 

78 * The query finds tw Clara rurtors. report dales and class 
conworung dalaa oasociatid wr re chuoen school 

79 stSQL - -SELECT SNA^EXTOACT CJaaal^sTtoor.PK. 
B^4^.E)^RACTCtossCa^v0alB. BIMA^EXmACT RaporlDsto. 

BNkL.£XTTVlCT.FiacaJre« PK. BN\.EXTFIACTMCCFTCMeF4\.EXTOACTIfi«ERJOIN 

SCH.TGT MOSCN(BNA^EXTOACTCoisseM#r*or_PK- 

SCH_TGT MOS TCoursoMsrtoar.FK) AhD (BNA_EXTRACT TwgeWOS.PK ■ 

SaL.TGT.MOS.T* 00 *iOS.FK) WHERE &4A.EXTRACT CoissoMfitorw.PK • 

Forma'InmReclBMiticafeanlerrrCaisssrAanber AND SCH_TGT_M06AMOS_FK > 

Formi'IrmRacIttsbIcakon'MAMQe.* 

30 Me cfTtOaatf<4inber RowGoisca - itSQL 

31 

32 End&to 
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2061 

2062 

2063 

2064 

2065 

2066 

2067 

2068 

2069 

2090 

2091 

2092 

2063 

2094 

2095 

2066 

2067 

2068 

2099 

2100 

2101 

2102 

2100 

2104 

210S 

2106 

2107 

2106 

2100 

2110 

2111 

2112 

2113 

2114 

2115 

2116 

2117 

2110 

2119 

2120 

2121 

2122 

2123 

2124 

2125 

2126 

2127 

2128 

2129 

2130 

2131 

2132 

2133 

2134 

2135 

2136 

2137 

2138 

2139 

2140 

2141 

2142 

2143 

2144 

2145 

2146 

2147 

2148 

2149 

2150 

2151 

2152 

2153 

2154 

2155 

2156 

2157 

2158 

2159 

2160 

2161 

2162 

2163 

2164 

2165 

2166 

2167 

2168 

2169 

217C 

2171 

2172 

2173 

2174 

2175 

2176 

2177 

2178 

2179 

2180 

2181 

2182 

2183 

2184 

2185 

2186 

2187 

2188 

2189 

2190 

2191 

2192 

2193 

2194 

2195 

2196 

2197 

2190 

2199 

2200 

2201 

2202 

2203 

2204 

2205 

2206 

2207 

2208 

2208 

2210 



33 

34 Priwle Sub cn4)C<xri«74jT<»r^l8r(4)daM<) 

35 

36 k^MAMOS. M^crii<:aurwNun«wColutny 

37 

38 EndSub 

39 

40 Pnv«toSubClTt>SSN>ABrUbd«l»0 

41 

42 Kto b£0 - Ms>c>rbSSMCoifrei(1) 

43 Ms UGrsdOsto . Ms<ctT«>SSr4CoUTr(2) 

44 

45 End Sub 

46 

47 PnvatoS(i>cntiSSK_&>^() 

48 

49 0>m s»SQL As S7mg 

50 

51 srSQL- •SELECT OISTINCTTW MARINE ,SSN_PK. MARINE-SO. 

MARirC Gr«lO«to FRCM MARIIsE l£FT JON ASSIGM^NT ON MARINE-SSN.PK - 
ASSIGN^NT.SSI^FX WHERE «(ASSIGMVENr.SSN_FK) Is NJ));* 

52 Lto cn4}SSN.ncwiSaun:o • sir SQL 

53 

54 EndSub 

55 

56 PnvalsS(A>errt>SSHrindJUterlJbdste<) 

57 

58 Om R As Rocordsat 

59 Set R> Ms.RscorctsotClariQ 

60 R Findfirsi '(SS7L.FK] . * CM(34) & LtollorbSShFind) & Cbt(34) 

61 Lb BoolJmrk • RBootorwrlc 

62 Ms'lerrbSSI^jnd) - Nul 

63 Ms ciTt>SSHS«tF«cis 

64 

65 EndSub 

66 

67 PnveiB Sub Deteto_Caclc() 

68 On Eiror GoTo En.DoWs.Cick 

69 

70 

71 DoCmd DcAfeixiltom •cFamear, scEckfibnu. 8. , •cMenuVor70 

72 DoOnL OoMinuiton acForrev. scEciMvu. 6. . •cMsnuVer70 

73 

74 EsiLCMsto.Ctck: 

75 BsiSub 

76 

77 En_Dotote_C»ck; 

78 kbgBox Err.OescnpOon 

79 FtesiOTs E»LDebto_Cick 

80 

81 EndSub 

82 

83 PnvabSt^CkMe.CtckO 

84 On Enor GoTo En.Ckae.Cick 

85 

86 Om stOocNams As Skwig 

87 Om sfljnkCnisns As S>ing 

88 

89 ' dose eurreoi lorm 

90 0>Crnd Close 

91 

92 ■ Open specified Idfm 

93 stDocNsme ■ trmPreproceesing&EsecuiwnSwilchboard' 

94 DoCmd. OpenForm stOocNwrie. . . stljnkOteris 

95 

96 EjotOoae.Cicfc 

97 BsiSub 

96 

99 Eff.Ooao.acIc 

100 kbgB<aErr.Deacr««an 

101 Rssune ExUQose.Cfck 

102 

lOSEndSti) 

104 

Form lm£chootAss>gnmenis 
Code 

1 ADitxils VB_Nmt 0 - *Foni\^trmSchoolAss< 7 Tnenls‘ 

2 ADibuto VB.Creebbto > True 

3 Asibuis VB_Predecbredld - True 

4 ABibub VB_E]fx»ed ■ False 

5 Opbcn Corrpare Database 

6 Opbon Eivkat 

7 Prisab SiA> Ooee.OcfcO 

8 Oi Enor GoTo En.Claee.Cick 

9 

10 Om stDocNama As Sfring 

11 OmstUnkCnbna AsSTing 

12 Omdbl As Dabbese 

13 

14 Seutii - CirrenlObO 

15 

16 ' Cbae Sw curent Icrm 

17 DoCmd Ctee 

18 ‘ Open specified lorm 

19 sOocName • 'frmAnalyzeRssiJr 

20 DoCmd. OpenForm stDwfibme, . . stUnkCntoria 

21 Forrm*lriTAnafyieRaaiASe(Foci 0 

22 

23 

24 ExiLCloso.CacIc 

25 E»tSub 

26 

27 Err.Clooa.CWc 
2B MigB«Err.Deaaipkan 
29 RsMne E»i.Claae.Cfck 
X 

31 EndSub 

32 

X Pnveb Sii> FarTT\_Cis'rer«0 

34 

35 Om sfrSQL As Sr<ng 

X Om rec As Recorcbel 

37 Omdbl As Dabbsoe 

X 

X Seldbl - CtrrenlDbO 

40 

41 ' Calcubbs tobJ quob. and runber ot schoob lor be nn 

42 stSQL- 'SELECT SinXSvTOQuob) AS Tob)C3nta.Couit(SunOtajob) AS 
fiksTberOSctxiob FRCM 7 yTotalQjobForRs>:' 

43 Sel rec - dbl OpenFtocordsel(ssSOU dbOpervSnapshot) 

44 Lb MTobIdjoti • lecrTobldjob 

45 Ms OfAurtoiOIScboob • recINiarberOISchools 

46 

47 ‘ Calciiitas be lobl nurbar of assignements lor be run 

48 stSQL • •SELECT &ar<CoisiCIFrscabraar.PK) AS TotalAsB 7 «d FROM 
iryTolBlOMbFiledForFbr.* 

49 Seirec-db1.0penneciTdse((s»Sa.dbOperiSntpBboQ 
X fi4s.bJTobiA»gried> rec'ToiiMssTied 

51 



2211 

2212 

2213 

2214 

2215 

2216 

2217 

2218 

2219 

2220 
2221 
2222 

2223 

2224 

2225 

2226 

2227 

2228 



2231 



2234 

2235 

2236 

2237 
22X 
2ZX 

2240 

2241 

2242 

2243 

2244 

2245 

2246 

2247 

2248 



2251 

2252 

2253 

2254 

2255 

2256 

2257 
2256 

2259 

2260 
2261 
2262 

2263 

2264 



2267 

2268 

2269 

2270 

2271 

2272 

2273 

2274 

2275 

2276 

2277 

2278 

2279 

2280 



52 Ms MTobPercencFil . Inl( (Ms MTobtAsiTnd / Ms MToOia«>b) 

53 

54 

55 EndSub 

Ftam frmSchoob 
Code 

1 Atbbuto V 8 _fibme • •FomuIrmSchoob* 

2 Attibuto VB.Creabbb - Tnjs 

3 Aibbuto VB_Predeclaredld • True 

4 Aibbute VB.Ej^naed • False 

5 Opbon Corrpare Dabbase 

6 Opbon EjQsiCJl 

7 

8 Prsbto Sub AMOS_PKJ«tarLbdab() 

9 Om rec Aa Hscordsel 

10 Om dbl As Dabbase 

1 1 Om skSQL As Sksig 

12 

13 ' Lpdato be ekop down fist lor AMOS 

14 s»SQL - •SELECT TargaMOS.PK FROM 

qrylis«a«aedTar 98 W 0 SFrt»nTAfiGET_M 0 S Wf€RE TCoissebfibtxir.PK - ‘ 4 

15 MsAMOS.PK.RoMiSoiace-s*SQL 

16 Lb bITsrgeMOS.FILRwiSasee - sbSO. 

17 

1 8 ' Update be AM06_FK m be efsU retason SCH_TCT_MOS 

19 Forrr«lfrmSchootilsublnnSchook{AM06_FK.Vakje • Ms AM06.PK. Value 

20 

21 Update be TafijeMOS_FKb be chid feUfionSCH_TGT,MOS 

22 Set dbl • CmenObO 

23 Selrec > db1.CpanPbcardse|s>$QL<l>Cper)Sr\ap8hol} 

24 FormaHnnSchooblaubfTJnSchoofiirrargeWOS^FK. Value - recfTargelMOS.PK 

25 

26 ’ Input be correct MCC sekre lor be setected come 

27 s»SQL-’^l£CTLCC FROM TARGET.LOS WHERE TCoiaseMsTber.PK-' 4 
fiAs.SCau’sebfifTber.PK.Value 4 *~ 

28 Set dbl • OarenlObO 

29 Selrec • dbl OpenRscordse((srSOL dbOperrSnapshol) 

X Lb.MCC. Value - reclMCC 

31 

32 ' Update be TCoiaielAsTtoer.FK m be chid rbakon SCHLTGT_fi40S 
X ■FormsllmiSehoob!subtnnSehoobfTCix»sebkbb«r_FK Value - 

Ms SCorsaNtfrbar.PKValue 

34 

35 EndSub 
X 

37 

X Private Sub bbCte«r.Cfick() 

X 

40 Om dbl As Dabbase 

41 Om stSOL As Sfing 

42 Om I As Integer 

43 Om rec As Racorrbal 

44 

45 Seldbl - CisrailDbO 

46 

47 sVSQL - •SELECT OISTINCTROW TARGET_LC6.TCixrsefi4bt>er PK FROM 
TARGET.MOS LEFT JOIN SCH.TGT.MOS ON TARGET_MOS.TargeWOS.PK - 
SCH.TGT.LOS Tar 9 oM 0 S_FK AbD TARGET.LOS TCoiisebksjbar.PK . 
SCH.TGT.LOS-TCoirsefiAb*ar_FK WHERE (((SCH_TGT_MOS.Tar 9 eMOS.FK) Is 
MjI)AM3((SCH.TGTJvCS TCouseFMrber.FK) Is fU))ORDER BY 
TCoiisebkrtjer.PK.* 

48 Set rec > dbl ,OpenRBCordset(saGOU dbOpenOynaset) 

49 

X II rec.EOF • Fabe Then 

51 lecMoveLast 

52 rec LkneFirsl 
X End II 

54 

55 ' Cber mood come nsrbars from be terget_mos bbb 



2281 



22S7 

2288 

2289 

2290 

2291 



X ltrec.RecardCoiml>OT>ien 
57 Fori • 1 To rec.RacordCoisrl 
X ' Doablas be acfion query carVrmalan message 

X AppficataaSeCpbon 'Cc^rm Aclon Qjenes*. False 

X OoCiTxl. SMWvrangs (Fatoo) 

61 

62 saSOL.-OEirrE* FROM TARGET.MOS WHERE 

TARG£TJi40S.TCoissafi*jnt>or_PK - ' 4 rec1TCo»»seMsit>ar_PK 4 - 
X dbl Erocute ssSQL 

64 

65 ' Enabba be acton query contirmakon message 



2293 67 0>Cml.Se(Wbrangi(True) 

2294 X recMsveNeit 



2296 

22S7 

2298 



2300 

2X1 

2302 

23X 

2304 

2305 
230$ 
2X7 

2308 

2309 
X10 
ail 
ai 2 

ai3 

ai4 

ais 

ai6 

ai7 

ai8 

ai9 

2320 

2321 



2324 

2325 

2326 

2327 

2328 

2329 
23X 
2X1 



23X 

2334 

23X 

23X 

2337 

23X 

23X 



70 End II 

71 

72 * ^ Cou^ NifTbiv List 

73 s»SQL . -SELECT WSDNCTROW TARGET.LOS TCoumofiMrber.PK FROM 
TARGET LCB LEFT JOIN SCH.TGT MOS ON TARGETJrOS.TargoMOS PK - 
SCH.TGT MOS.TargeMOS.FK AfiO TARGET.LOS TCoissefifijTteer.PK - 
SCH.TGT_MOS.TCix«ebk»Tber.FK WHERE (((SCH_TGT_LOS TargeWOS.FK) Is 
NVDAMH(SCH_TGT_M0S TCourseHMrbof.FK) Is NL<))OflD£R BY 
TCorrsebksrber.PK,* 

74 Lb SCotrsebLrrber.PK RcnvSotsee • strSQL 

75 

76 EndSub 

77 

78 Private Sub bbfiBsoCA»>enabaa.Clck() 

79 
X 

81 ' Daabtes be acton query condmbton meaaage 

82 Applcakon. SeiCpbon 'Confirm Acton Queries*. Fabe 
X DoOmSefWarrangs (Fabe) 

84 

85 DoCmd RjnSQL 'UPDATE SCHOOL SET PenallyFactor - 24.' 

K 

87 ‘ EnabbB be acton qitery confirmaton message 

X AppIcatoaSeCpbon ‘Confirm Acton Queries*. True 

89 DoCntlSelWamsigs (True) 

90 

91 cnbPenaByVtew - 'IK* 

92 

X EndSub 

94 

95 PrrviteS(i)CnbCoLnaNisTtoFindJUtorLp(teto() 

96 

97 Om fl As Recordsel 

X SelR-MeFtecordaetOcne 
99 RFindF.rsnSCoissoNL*Ti>or_PKl-*4Chi(34)4 
Me'IcrrbCousebkiitterFind] 4 Cbi(34) 

IX Lb Bootonark • RBookirark 

101 Lb<|enbCourse(Sk>TtorFind) • Mil 

102 Lb SCcxrsaHAsrber PKSelFocta 
IX 

104EndSU> 

IX 

IX Private Stb cnbPena>^iew.AfterUpdate<) 

107 



75 



ZMO 

2341 

2342 

2343 

2344 

234S 

2346 

2347 

2346 

2349 

2350 

2351 

2352 

2353 

2354 

2355 

2356 

2357 

2350 

2360 

2361 

2362 

2363 

2354 

2366 

2366 

2367 

2368 

2371 

2372 

2373 

2374 

2375 

2376 

2377 

2378 

2379 

2380 

2381 

2382 

2383 

2364 

236S 

2386 

2367 

2368 

2389 

2300 

2391 

2302 

2363 

2304 

2305 

2306 

2307 

2368 

2366 

2400 

2401 

2402 

2400 

2404 

2406 

2406 

2407 

2406 

2406 

2410 

2411 

2412 

2413 

2414 

2415 

2416 

2417 

2416 

2410 

2420 

2421 

2422 

2423 

2424 

2425 

2426 

2427 

2426 

2429 

2430 

2431 

2432 

2433 

2434 

2436 

2*36 

2437 

2436 

2436 

2440 

2*41 

2442 

2*43 

2444 

2445 

2446 

2*47 

2446 

2446 

2450 

2451 

2452 

2453 

2454 

2455 

2456 

2457 

2456 

2456 

2460 

2461 

2462 

2463 

2464 

2466 

2466 

2467 

2466 

2460 



106 S«t8ClC4SoeiTt»P4»>4nyVl*W 
106 Case'4](’ 

110 #aPeo«JVF«cfcr • 4 • 24 

111 C*se‘3K' 

112 bsPenalVFactar • 3 * 24 

113 Caw'ZK' 

114 MPoflAl^Factar. 2 * 24 

115 C4»'1)f 

lie tdPenalVFactar • 1 ‘ 24 

117 

116 ltfPon«IVF»ctar- 24/2 

119 C»o‘l/3]/’ 

120 baP«n*IV Factor -24/3 

121 Caso 'V*r 

122 ooPanalVFactor ■ 24 / 4 

123 EndSatocI 

124 

125 ‘ Sm tw updato 

126 DoCmlDcMBraitorTi acFomr&ir. acFtocorttoMeru. acSa««Flscord 

127 

128 End SO) 

129 

130PTIVBIB SuC> Canviw<di4_Ctcl4) 

131 

132 Dim itSOL As Stong 

133 

134 ‘ Otsabtes aclon qusry oonfiirraaon massage 

135 App«ca»ao.Sa(Op«an 'Cctolirm Aclon Quanas'. Fahe 

136 Doom SaM/ammgs (False) 

137 

136 Doom ftnSOL nfCEPfT INTO TARGET.MOS ( TCoirseAlamor.PK. 
T»geimOS_PK. MDC ) SELECT OISTIFCT Bt^EXTRACT C<torsif*art)er.FK. 
B^4^_EXmACT.Tar9eMDS_PK. BI^EXTTUCT MCC FROM BNf_EXTRACT;' 

136 

lao ' Enabtas tw acton query conArrmlon message 

141 AppicaBoaSetOpeon 'Conflrm Aclon OMrtes', True 

142 OoCrmSelWamngs (True) 

143 

144 ' Updato ttoOxrseKUrtoerUsI 

145 rtSQL - -SELECT DISriNCmcwv TAFGET_MOS.TCo»«eFumer_PK FROM 
TARGET.MOS LEFT JON SCH_TQiTJi40S ON TARGET_MOS TargeWOS.PK - 
SOLTGT MOS TargoWOS FKAbD TARGET MOS.TCoirseAUTtief PK - 
SOLTCT_M06.1C<»«eFUit>ef_FK W1CBE (((SCFLTGT_HOS.TargeWOS_FK) Is 
F*J)A70((SOLTGT_MOS TCoi«eFOTt>e»_FK) Is FU))OROER BV 
1Cou-aeNLiTt>ef_PK.* 

146 Ms SCoknoMartiar PK RoiNSOLrce ■ stSQL 

147 

148 End Sub 

149 

150 

151 Pnvato SubCanvnand36_Clct<0 

152 Dim trm As Fornv c8 As Contol 

153 Dim varten As VananL infl As Intoger 

154 OlmstrSOL AsSVlng 

155 

156 ' Ensves tie currant record Is saw to tto SCHOOL toble 

157 DoCnvlDoMervttomacForTnBar. acFtocordsMsru. scSawRecord, , 

156 

156 "Tba code entofs tie seleciadTargel MOB'S Into tto SCH_TGT_M0S 

160 Sel frm • Formsltrirficnoob 

161 Sal cB • lrTTytofrargeM06_FK 

162 For Each verttnlncl.ltorTsSalectad 

163 For ms -OToctCcmmCoiaii- 1 

164 

165 ’ Ths putt tM nBlue toind In tto bl boK Into a ta)6 faCK. 
malong II raadobto by tw qusry 

166 FormdrrmGchoolirrargBlValus Value - caCoAmi(ltia. van»N 

167 

166 ' Disables ecton query ccnflirmton message 

166 Apptcalon.SalOpton*ConflrmAcianajenas*. Falta 

170 

171 • Enters tie 1-aluo into t»SCH.TGT_MOStoblB 

1 72 DoCmd OperOuery •<tyUp«totoSCK.TGT,MOS- 

173 

174 ' Enafalat tto aclon query eortirmal on rrassege 

1 75 Apptcalon.SeiOpean 'Cwllrm Ac Ion Qjarlas*. True 

176 

177 NtodlnB 
176 Ntoiitorttn 

179 

180 - Update tw Target MOS 1st 

181 srSa-*Sa£CTrrarge8ylOS_FX)FnOM(SC»i.TGT>IOS)WFtRE 
(SComeMarner.FX] - * & Forns<friiiScboaWSCairieAMrCnr_PK. Value & -* & 

• A70 AM06.FK - ' 1 Fom»l#nT6ehoolitAMOS_PK. Value & ” 

1 82 Forn«ltriT6ctaalilLian’w<gaM0S_FKJ4«tary RmSourca • stSOL 

183 

184 * Update ttoPolwilal Target M06 1st 

165 ceSOL- -SELECT TargeMOS.PK FROM 

ryyUsaJrueedTargeMOSFfomTARGET.MOS WF€RE 1Coi«aNuiTt>er_PK - - 8 

186 Me WTargefttOS.FK. nwGcuve • stSQL 

197 

186 ' Update tea Coma FUrtoar list 

168 seSGL - -saECT DISTINCTRCW TARGET jMOS.1ComaF*»mar_PK FROM 
TAHGET_MOS LEFT JOIN SCFLTGT.MOS ON TARGET_M0S.Terga*40S_PK - 
SCFLTGT_MOS.TargeBylOS_FK WVCRE (((SCH.TGT.MOS.Tar9eByOS_FK) Is 

100 Me SC<xnaMrt>er_PK .Ho*i6«i#ce • stSGL 

191 

192 ' Updato lire stenp 

193 (Sch.TiirtoStenpl • Now 
1»4 

195 

106 End Sub 
197 

1 96 PnvBto Sii) ConmniMO.CIcliO 

199 Dim frm As Fornv c8 As Contd 

200 Dim itorltn As VanenL Ini As Integer 

201 Dim srSOL As Sting 

202 

203 ' TMs code Dsiab tte aetected Target MOS^ end ite aiaocialad 
antlaa tram t* SCFLTGT.MOS teble 

204 Sal tmi ■ F uma ftiificnoole 

206 Sat cl > IrrnlLtetTwi^MCIS.FKJ'btory 

206 For Eecb varltn In ct.ltomsSatoctod 

207 For mi -OTocICoUmCrMii- 1 
206 

209 ‘ Ths pub tw vBlua Icuid in tie Isi tnlnb a ted bov 
matong II raadabto by tto query 

210 FornvIlrniGctiocterrergalVatije VaLa • cB.CoArm(me. narltn) 

211 

212 ■ OtsaUes »• acton query conflimaSon masaago 

213 Apptcalon SalOpton XonlVm Aclon ajeoes-. Falee 

214 

215 ' Oeietea fia record awoelatod eiih tie qaatiad vefcie tram 
taSCM.TCT.MOStebio 

216 DoCrmOparOary *qry0eleteSCH.TGnrjlit06- 

217 

218 • Enattee ta aclon query corttmaion mnesege 

21 9 AppicalartSalOpBon -C^rm Aclon Qartas'. True 

220 

221 Kkntme 



2470 Z22 Nsdarltn 

2471 223 

2472 224 Update B« Targei M06 1st 

2473 225 strSQL - -SELECT rTargeWOS.FK) FROM |SCH_TGT_M0S1 WFCBE 

2474 (SCoLrtaMiTtar.FK] - “ i FatTnallrnecboob!SCameFLrtar_PK.Vaka & “ 4 

2475 • AbO AMOSJTC - " 4 Forn»t|rmScfwoblAMOS_PK.Vaka 4 “ 

2476 226 FarTrslfnT£choob!U3frargBM06_FK_Hstory.FtowGource- stSCX 

2477 227 

2478 Z28 'Upctetetba Potental Target MOS bt 

2479 229 stSOL - -SELECT Twge«406_PK FROM 

2480 lyyUstUrxflerfTargBMOSFranTAHGET.MOS WICRE TComeNmtoar.PK - ’ 4 

2481 230 Ms bfrargsMOS_FK.FtowS(xm:e - stSCX 

2482 231 

2483 232 ' Update Ba Come Mertar LW 

2484 233 stSO. - -SELECT DlSTTNCTRCWTARQrr.MOSTComeMsnber.PK FROM 

2485 TARGETJMOS LEFT JOIN SOLTGT_MOS ON TARGETJWOS TbgofylOS.PK - 

2486 SCFLTGTJVC6.TergeW0S_FK WF€RE(((SCHJCTJl40STetgBWOS_FK)ls 

2487 234 Me SComsMjrrtier_PK.R7w6(Mre • stSQL 

2488 235 

2489 236 ' Updkte tme stomp 

2490 237 (SctuTtmeStentoj - Now 

2491 238 

2492 236EndS<i> 

2463 240 

2464 241 PrivelB Sub FonT\.BetoraUpdate(C«toel As Integer) 

2495 242 

2466 243 (Sch_TlmeSWnp) • Now 

2497 244 

2498 245EndS(i> 

2489 246 

2500 247 Private Stii FomvCv»TenlO 

2501 248 DlmitSGL As Sting 

2502 249 

2503 250 ‘ Update ta POtental Target MOSbi 

2504 251 stSa - •SELECT TagatMOS^PK FROM 

2506 7yUstUr«a«rage»406Fr<n>TARGETjyi0S WHERE TComebbrtar PK - ' & 

2506 252 MB.bfrage*40S_FKRowSouce-s»Sa 

2507 253 

2508 254 - Update ta Tagei MOS List 

2508 255 strSCX - "SELECT (TargeWOS.FKI FROM (SOLTGT.MOS) WVCRE 

2510 |SComeF*m*er_FKl - " « Me SComaNtertar.PK Vaka & “• 4 * AFC AMOS.FK 

251t - - 4 Me AMOS PK.Vaka 4 - 

2512 256 Me UsfTwgetltOS.FieFbUy.RmGatfca • strSOL 

2513 257 

2514 258 * Update ta Course Fkmtar List 

2515 258 strSOL- •SELECT DISTll«:TRCWTARGET_MOSTComeNmtaf_PK FROM 

2516 TARGETJMOS LEFT JOIN SCH_TGT_M0S ON TARGETjUOSTageWOS.PK- 

2517 SCH_TGT_MOSTagetMOS_FK A70TARGET_MOSTCome^**rtar_PK- 

2S1a SCH.TGT_M0S TComaMmtoer_FK WFERE (((SCH_TCT_MOS TageWOS.FK) Is 

2519 F*d)AMX(SCH.TCT_MOS.TC««seNtertaf_FX) Is F*rf))0RDER BY 

2520 TCometOttw.PK.* 

2521 260 Me SComeMmtar.PK.RowSoui:e. stSQL 

2522 261 

2523 262 ’ Forces ibomo enter data lor come lurtom. belore taAssiTad 

2524 263 It IsbUWMe SComemeTtar_PK.Veka) Dan 

2525 264 MsiAM06_PK.EnBblsd - Falee 



2526 

2527 

2528 

2529 

2530 

2531 

2532 

2533 

2534 

2535 

2536 

2537 

2538 
2536 

2540 

2541 

2542 

2543 

2544 



265 

266 ’ Alova ta laar to enter an astegned MOS 

267 Ebe 

268 Mel AMOS.PK. Erabled - True 
268 Endlf 

270 

271 ' Prevenb ta user rrom aecldentaly changng a come nvntar 

272 It IsMdl SCoitaeMmtar.PK) Tian 

273 MeiSCom8FLmtar_PK.ljac1(Bd ■ Fatae 

274 Ebe 

275 MilSCamBMjTPer_PK.LockBd - True 

276 Endlf 

277 

278 ' Prevante ta user iron acadentaly ctangng an AM06 

279 If ld4J(AM0S_PK) Then 

280 MBlAM06_PK.Lacl»d • Fabe 

281 Eba 

282 MelAM06_PKljOCliBd - Tna 

283 Endlf 



2546 

2547 

2548 



2551 

2552 

2553 

2554 



2558 

2557 

2558 
2558 

2560 

2561 

2562 



2564 

2565 



285 ' Upitele ta penally lactor view 

286 SatoclCasaHF>enanyFackY 

287 Casa 66 

288 cfTtfVsnMyVIaw . *4)C 

286 Casa72 

2S0 amPora9yviaw-:ter 

261 Casa48 

292 cnf)PenaHyVlaw - -zr 

263 Case24 

294 cntPanattyVlaw. 'ir 

295 Case 12 

266 cntiParaayVIaw- *1/21^ 

267 Casa a 

268 crrtiPanaRyVIaw- -1/ar 

296 Case6 

300 crrtiPeranyVIaw . '1/4S- 

»1 EndSatocI 

302 

303 

304 



2567 

2568 
2566 

2570 

2571 

2572 

2573 

2574 

2575 

2576 

2577 
2576 
2579 
2500 
2581 
2562 

2583 

2584 

2585 

2586 
2507 



2591 

2502 

2593 

2504 

2595 

2586 

2597 

2508 

2506 



306 End Site 

307 

308 Private $<i> SComsNimtar.PKJVtorUpctetoO 

309 

310 Dim rac As Rscordsat 

311 Dim dbl As Datebese 

312 Dim s»SQL As Sting 

313 

314 ’ Upmieta (top down bl for AMOS 

315 stSa - •SELECT TageMOS.PK FROM TARGET.MOS WhCRE TCovrsebbrtar.PK 
- 4 Me SCotosebUrtar.PK.Vatue 4 “ 

316 hto.AMOS.PK-RawSotfoa - stSO. 

317 -Ute btr«geMOS_FK.FtoteSa4C« • strSCX 
316 

319 ' Akrva tawear toanter anasgnadMOS 

320 Me<AM06 PK.Enabted • True 

321 

322 End Sub 

323 Private Sub baCatete.OckO 

324 On Error GoTo Err J>tiDalete_Ctck 

325 

326 ' Dlsabtes ta aclon qusry confimalan iressege 

327 Apptcalorv SeOplon •ConArni Acton Quartas-. Fates 

328 

329 Oabtostarecordessoclatedvillitatpecinadvatoelramta 
SCH.TGT MOS tebte 

330 OoCrmOpaoQuary -toyOateteSCH.TGT.MOSEney- 

331 

332 ' Detetes ta record aseoeieted mm ta dtocined vetoe from ta 
SCKXX tebte 

333 TXjCimOpenQuefy -<tyOetebSCKX3.Eney* 

334 

335 * Enabtes ta aclon query cuiOmat ij i rrawegi 



76 



2600 

2601 

2602 
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260< 
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2606 

2607 

2606 

2606 

2610 

2611 

2612 

2613 

2614 

2615 

2616 

2617 

2618 

2619 

2620 

2621 

2622 

2623 

2624 

2626 

2626 

2627 

2628 

2629 

2630 

2631 

2632 

2633 

2634 

263S 

2636 

2637 

2638 

2640 

2641 

2642 

2643 

2644 

264S 

2646 

2647 

2648 

2648 

26S0 

26S1 

26S2 

2863 

2654 

2655 

2656 

2657 

2658 

2659 

2660 

2661 

2662 

2663 

2664 

2665 

2666 

2667 

2668 

2670 

2671 

2672 

2673 

2674 

267S 

2676 
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2678 

2680 

2681 

2682 

2683 

2684 

2685 

2686 

2687 

2688 

2689 

2680 

2691 

2692 

2683 

2884 

2695 

2686 

2697 

2688 

2699 

2700 

2701 

2702 

2703 

2704 

2706 

2706 

2707 

2708 

2708 

2710 

2711 

2712 

2713 

2714 

2715 

2716 

2717 

2718 

2719 

2720 

2721 

2722 

2723 

2724 

2725 

2726 

2727 

2728 

2729 



336 Appicalon.S«lOptan 'Conhnn Acbon Q«n«9‘. truo 

337 

338 OoOnd.DoMenultomKFanTfiv, kcEdilMafXj, 8. . «cManjV«r70 

339 DoOnd DoMenuJlem ac Forrrfiar . ac EdiMwu. 6. . acManuVarTO 

340 

341 EaLWiOeiois.CIcK; 

342 EatSub 

343 

344 Err.bViOeMa.Ciclc 

345 MsqBox Err OMcnpton 

346 Fbaurv EaLbtnO^b Cick 

347 

348 End Sub 

349 PrivatB 5id> brOoM.CIckO 

350 On Error Goto ErrJjInaoaa.CIck 

351 

352 

353 OoCmdCbse 

354 DoCmdOpenForm *frmMairtananc«Switchbo*r(r 

355 

3S6Eaa»tnCta»_Clck. 

357 Eat Sub 

358 

3S9&r.b»Oos«_Clelc 

360 MsgBox Err.Ooacnplan 

361 ftiaum# EaU*O<»0.CI<* 

362 

363 End Sub 

Form hnfichpafToPEF.Mainl 
Codo 

1 Atkibuto VB JMarrv - *Fornx,(rmSchoofToPEF_Mainr 

2 AVifauio VB.Croalible > Truo 

3 Alkibut* VB^Pradectuedld - True 

4 AVibuts VB.Ejpoaed • False 

5 Opton Cornpare Oalabasa 
8 Opbon Elfiicit 

7 

8 PrivaiB Sub baiOose.CIckO 

9 On Error GoTo Err.bW3ose_Clck 

10 
11 

12 DoOmOose 

13 DoCmdOpenFonn'ttwMajfaanance&aitchbaaftr 

15 Eat_WnOose_ack; 

16 Eat Sub 

17 

18 E/r.bkiCtose.CIcIc 

19 MsgBmErr.Ooscnptan 

20 Fkntare EaLbtnCkiMjCick 

21 
22 

23 EndSub 

24 

25 PnvBtoSubbkiO«let»_Clcl(0 

26 On Error GoTo Err_briOMs_Cick 

27 

28 

29 DoCmdOoMnullBmacFarTrBar. acEtilMBru, 8. . acManjVarTO 

30 DoOnd OoMonultemacForTTBar. acEdiMsrxj. 6. . acMsniVarTO 

31 

32 EaUKntMee Cicic 

33 EatSub 

34 

as Err.WnOetote.Ock: 

35 MsgBox Err.O«9cnp*on 

37 Ftasiare EaLbinMete.CIck 

38 

39 EndSub 

40 

41 Prtvato Stfc ciTt>Coirse/vkjnberFind_A(tarUpdalaO 

42 

43 Dan R As Hscordsot 

44 Se(R> Me.Rscordse(Clone 

45 RFindfinit lSCousrf*st4)er_PK) - * & Cla(34) & 
Ma'IctTttComol'kaTtierRndl & Chr(34) 

46 Mb Boohnark . kSookmark 

47 Mo'IcmbCcarserAarborfindl . r44 

48 Me.SCoursr)lsUTtiar_PK.SalFacus 

49 

50 EndSub 

51 

52 Private Sub Fom\_CurortO 

53 OmslrSGLAsStnng 

54 

55 ‘ Update »w Potenkal PEF 1st 

56 strSOL - -SELECT 01S71NCTO0W (PEFl lPEF.PKl FBCM PEF LEFT JON 
<kySch_Pof ON tPEFl.(P£F_PKl - |qrySch_Pe(l .fPEF.FXJ Wt€RE 
(|qrySch_PolJ.|PEF_FK) Is NU) OFOEH BY |PEF).{PEF_Piq;- 

57 Me UsltknetectedPEF.Rcm£auc« - skSCL 
56 

59 - Update twSelecled PEF Lot 

60 skSCL - -SELECT |P£F FK) FRCM lyyScti Pot;* 

61 Me LsGetecledPEF.FkmSouca - skSGL 

62 

63 EndSub 

64 

65 PrivatoSti>|jenArrow_CSckO 

66 Dim trm As Form cB As Control 

67 Dim varikn As Vanant, ird As Integer 

68 Dim slrSQ. As String 
68 

70 ' Erm#as tw cisrent record is save b the SCHOOL table 

71 OoCrndDoMenultomacFonrear. acFtecordsMsru. acSareFtocord, , 

72 

73 • TWs code enters the s etecbd Target MOB'S mb (he SCFLTGT_M0S 

74 Set trm • ForrmMnnSchoonbPEF.MBint 

75 Selcl-lfiii!ljsltJhsebcterf»EF 

76 For Each varllm In cl ItomaSetacted 

77 Fcr inB • 0 To cl.ColLiTviCaunl - 1 

78 

79 "IMspuh 8ie value loundin Ihe tst boxtnba toiB box, 
making it readable by be query 

80 Fanml(rmSchcx3lToPEF_Ma>nl!PEFVakie Value • clCobmn<inB. 

81 

82 ' Disaties tie acion query canrirnrsbori message 

63 Apptcaton.SeCpaon -ConArn) Aclon Querias*. Fabe 

84 

85 ‘Eribrs the value irto the SCH_TGT_MOStabb 

06 OoCmd.CpanOjery -qryUpdateSCH-PEF 
87 

68 ' Enables the eclon query conAimalon message 

89 Appicalwn-SeOplon -Confirm Acton Queries*. True 

90 

91 NeolinB 

92 Neidvarltn 
S3 

94 - C^to tie Poamlal PEF bt 

95 sirSa. - -SELECT OISTINCTFCW {PEF].|PEF.PK| FBCM PEF LEFT JOIN 
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2732 

2733 

2734 

2735 

2736 

2737 

2738 
2738 

2740 

2741 

2742 

2743 

2744 

2745 

2746 

2747 

2748 
2748 

2750 

2751 

2752 

2753 

2754 

2755 

2756 

2757 

2758 

2759 

2760 
2781 

2762 

2763 

2764 

2765 

2766 

2767 
2760 

2768 

2770 

2771 

2772 

2773 

2774 

2775 

2776 

2777 

2778 

2779 

2780 

2781 

2782 

2783 

2784 

2785 

2786 

2787 

2788 

2789 

2790 

2791 

2792 

2793 

2794 

2795 
2786 

2797 

2798 

2799 
2000 
2801 
2802 

2803 

2804 
28CS 
2806 
2807 



2811 

2812 

2013 

2814 

2815 

2816 

2617 

2618 

2819 

2820 
2821 



2824 



2830 

2831 

2832 

2833 

2834 

2835 

2836 

2837 

2838 

2839 

2840 

2841 

2842 

2843 

2844 

2845 

2846 

2847 
2846 



2851 

2852 

2853 

2854 



2857 

2856 

2859 



lyySch Pot ON |PEF) |P£F_PK1 - |qrvSch_Pe(].|PEF.FKl W1€RE 
fli»ySch_Pefl |PEF_FK) Is hW) OFOEH BY tPEFJ.lPEF.PKI;- 

96 Me.bstUnselocto^EF FbaSouce* stSQL 

97 

06 'LpdabtieSelectodPEFUsI 

99 stSGL - -SELECT |PEF_FX] FROM qrySch.Pef;' 

100 Me.LiSlSelBClBdPEF.Rcmi6aucs« stS^ 

101 

102 End Sub 

103 

104 Privato S*b ft^ilArrow^CickO 
106 OmtrmAsForm cBAsCcntol 

106 Dan varltri As VananL irt) As Integer 

107 DmstSCLAsSbng 

108 

109 "Ihscode DebblheselectBd Target MOGsand lb assccisied 
entries horn tie SCH_TGT_MOS (tble 

110 Sotltm- ForimllnnSchoo(ToPEF_Maint 

111 Setcl-tnn!LstSelecte(f>EF 

112 For EachvarltnlnclIteiTaSelecled 

1 13 For inB > 0 To cl CdumnCoint - 1 

115 "Thn pub the vakie loirxj in the bt box mb a tod box. 
maiong it readabiB by tie query 

1 18 FormBlInTfichoofToPEF JytamtlPEFValue. - cB.Cokjm^intl. 

117 

lie ' Disables (he acbon query confirtrabon message 

1 19 AppicabortSeCplan -Confirm Acton Qjsnes*. Fshe 

120 

121 ‘ Deletas tie record associatod vaBi tie specitied value from 
tie SCH.TGT_M0S table 

122 DoCmdOponOjery 'qyDetoteSCH.PEF' 

123 

124 ’ Enables tie acton query conArmalon message 

125 AppicabortSaClptan ’Confirm Acton Queries', True 

126 

127 Nedmt 

128 Nsdvarltn 

129 

130 * Update tie Potontal PEF isl 

131 sirSa. - -SELECT OISTINCTROW |PEF].|PEF.PK1 FHCM PEF LEFT JON 
(yySch.Pel ON (PEF] |PEF_PK] . IqrySch.Pef] (PEF.FK) WHERE 
ncpySch_Pet].tPEF_FK) Is hUO ORDER BY |PEF).|P£F_PK];- 

132 MeLsiUhaatoctodPEF.FbnSauce.stSQL 

133 

134 • Update tieSelectod PEF List 

135 sirSa. > -SELECT tPEFjnC] FROM qrySdi_Psf;- 

136 Me UstSelactodPEF Rmi6<Mce . stSQL 

137 

iSeEndSii) 

Form IrmSchoofToProperlyMaail 
Code 

1 Altibute VB_Name - ’Fom\.lfTnSchoonoPropertyMBinr 

2 Altibuto VB„Cfoatabto - True 

3 Altibuto VB.Predeclaradd > True 

4 AOribute VB.Erposed . Fabe 

5 Cpton Compare Database 

6 Opdon Eiptcil 

7 

a Private Sib bbClose.ClickO 

9 Cn Error GoTo ErrJMnOase.Cick 

10 
11 

12 OoCmdCbae 

13 DoOnd. OpenFonn’llTrMaintonBnceSwitchboar(r 

14 

15 EaLPbOooe.CiciL 

16 EatSub 

17 

18 &r_bbCfase_CIete 

19 MsgBoxErr.Descnpton 

20 He*m« EaL.t*'Close_Clck 

21 

22 EndSib 

23 

24 

25 Private Sub bbOeisto CtckO 

26 On Error GoTo Err.btnOeiete dck 

27 

28 

29 DoCmdOoMBnultameoForTTRar. acEdiiMaraj. 8. . acMsrxjVerTD 

30 DoCrndDoMenultem acFonrest. acEikiMscxj. 6. , acMonuVorTO 

31 

32 EaLPtiOatete.CIcIc 

33 EalSub 

34 

35 ErrJjtiOolote.CScIc 

36 MsgGox &r.Oascnptan 

37 Resiro EaLMrOelele.CIck 

38 

39 aidSub 

40 

41 Private Sub bteLeveO.CtckO 

42 On Error GoTo ErrJ>tntjovelO_Clck 

43 

44 Dim tegRscardNLm As Long 

45 DimstSCL AsSteng 

48 

47 hgRscordNtfn* Me.O«TenRecord 

48 

48 DoOnd Ck»e 

50 

51 DoOmd.OpenFonn'IrmSchoonbPropLoveWainr 

52 DoCmd.fjoToRecord acOabForm -frmSchoarroPropLaveMamr. acGoTo. 
tegf^onfAtn 

53 FormeflrmSchoolToPrapLeveMinBChaaenLevel * 0 

54 

55 'Update tie setectod property ht 

56 stSO. - •SELECT [FProp«lyNter».FK] FHCM FLND_SCH_PHCP WHERE 
SCousoNtrber_FK • " i 

ForrmllrmSchocrr oPropLteieM ainIfSCotfseMmber FK. Value & ** & ’ And 
AMOSJ^ . • i Forriwllro«chaeifToPropLevoWainMM06_PK.Va^ 4 “ 4 * 

And Level - ’ 4 FormsIlmSchoofToFYopLeveMaineChoeonljevel 4 " 4 ’ 

LMON SELECT ILPropenyNarw.FK) FHCM LOG.SCH.PFCP WHCRE SCaaarf'isrtw.FK 
• ~ 4 Fome’irmSohoanb^apLsveMani!SComerAaTtier_PK. Vaiie 4 ~ 4 * 

And AMOS_FK • ~ 4 FonrnftrrTfictxnfToPropLeveMamtlAMOS PtCVaire 4 4 

And Level- 4ForTrBlftn£chooFoPropLeveMain«Choeeiljevel4’’ 

57 ForTTB!lm£choonoF>rap|jeveMunebLevelO.RoviGoLrce- stSQL 

58 
58 

60 EatJ*fiLevelO_Clck; 

61 EatSub 

62 

63 Err.btlbvelO.acIc 
84 MsgBoxErr.Oescnpton 

65 ReewTte EaL.btnLeveC_Clck 

66 

67 EndSub 

68 
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2S61 

2862 

2863 

2864 

286S 

2866 

2867 

2868 

2869 

2870 

2971 

2872 

2873 

2874 

2675 

2676 

2877 

2878 

2879 

2880 

2881 

2882 

2883 

2884 

288S 

2886 

2887 

2888 

2889 

2890 

2891 

2892 

2893 

2894 

2895 

2866 

2897 

2898 

2899 

2900 

2901 

2902 

2903 

2904 

2906 

2906 

2907 

2908 

2909 

2910 

2911 

2912 

2913 

2914 

2915 

2916 

2917 

2918 

2919 

2920 

2921 

2922 

2923 

2924 

2925 

2926 

2927 

2928 

2929 

2930 

2931 

2932 

2933 

2934 

2935 

2936 

2937 

2938 

2939 

2940 

2941 

2942 

2943 

2944 

294S 

2946 

2947 

2948 

2949 

2950 

2951 

29S2 

2953 

2954 

29S5 

2956 

2957 

29S8 

2959 

2960 

2961 

2962 

2963 

2964 

2965 

2966 

2967 

2968 

2909 

2970 

2971 

2972 

2973 

2974 

2975 

2978 

2977 

2978 

2979 

2980 

2981 

2982 

2963 

2984 

2985 

2986 

2987 

2986 

2989 



69 Prr««to SiO bM.««n_Ckcl<<) 

70 Ch Error GoTo En_t>W.«voli_Clck 

71 

72 Dim VrgFfecort^kjn As Long 

73 Dim strSQ. As SVing 

74 

75 krgfteoriMjD - Mo Ctfrontf^ord 

76 

77 DoCmd.CloM 

78 

^9 Oo^^Tid.^^cnForm (rmSchoo^roPr^pCw^84sinr 

80 DoCmdGoToF^ord ocOaIsFcrTTv. 'IrmScrnoIToPrapLoMMsinr. acGoTo. 

kigf^ardhAsn 

61 Forrm'IOTiSehoofToPropioKO»fc*»eChoson|j»«l- 1 
82 

83 ' U 0 d«to tw seloctod properly ist 

64 sfrSQL- •SELECT (FPfoponyNMT*>.nqFPOMFlND_SCH.PRCPWFCFE 
SCoi#aehksrt)er^FK - * & 

Fonrn'frrrficlioofToPrapLovoMeineSCamBNurtta PK.Vek» & ' And 

AM0S_FK - - & R»n«l1rfi6chooCoPropL*«oW»r«AM08_PK. Vakjo S - & ’ 

And Lonei • ' & Fanr«*(riT£c>xxindPrapLMMHi 8 Qwi 9 i|jMl & ~ * 

IWCN SELECT JLProparly?'^rTB_F>q FflOM LOa.SCH.PfO> WFERE SCasWAsiOor.FK 

• “ 4 Fom»JfnnSehoorro^opLo«»iton 8 SCou’soNi»rbor_PK.Veluo 4 "" 4 ‘ 

Am AMOS.FK - - 4 FornrnffrnfichxjToPropLowWMnBAMOS.P^ Veluo 4 “ 4 
And Lower • 4 Forms'trmSchoan'oPrapLoweMwntfOeBaijevei 4 

es ForTno!tmiSchoein’oProp(jOweMuni)bL 0 iieC.F) 0 wGoiec*> seSGL 
86 

67 EsU>W-««M_CSck; 

as Exism 

89 < 

90 Err_b*iL«wli_Cicfc 

91 Msg 6 ox Err Deacnpton 

92 R 0 sjT«Eji(J)ttiLoyen_Clctc 

93 

94 EndSii) 

95 

86 Priwals Sm btliMeC_CickO 

97 On Bror GoTo Err jAiLM^CIck 

98 

90 Dim hgRscorcNLfn As Long 

100 DimsfrSO. AsS»ing 

101 

102 k«g(^cor(t4sn • Me Ctsrenf^scord 

103 

104 DoCmd-Ckae 

105 

106 OoCmd.OpenForm'IrmSchoan'oPrcipLmeMamr 

107 DoCmd.GoTonscord aeOakFanTL *trrr£choon'oPropLeveMainr, ecGoTo, 
hgfteordrAsTi 

108 ForiTB'JrrnSehooToPre^iLewMwneChosonLmel - 2 

toe 

110 ' Updeis tie setocbd property i$l 

111 slrSCL- -SELECT [FProperlyfsfcmo.FK) FROM FUND.SCH-PBOPWFERE 
SOxrseNsrtier.FK - • 4 

Forms)frrr£choo(ToPropL 0 i«Meinl!SCouMMsntier_FKVekje 4 “ 4 ‘ And 
AMOS.FX • * 4 FvfTe1lrtT6<m(^oPropL«MMttr«AM0S_PK Vekre 4 ~ 4 * 

And Lewel • * 4 Foii m »triTGchcpfToPropijeM e MeineChoaenLei<el 4 ** 4 ' 

LNCN SELECT ILPropertyNbrre.FKl FROM LOG.SCH.PfO> WFCPE SC<Msa^ksTt)er_FK 
. - 4 Fartmirrn£diooToPr<X3iMMsiritSCaisMAUrber_PK.Vekje 4 4 * 

Am AMOS.FK • ’ 4 F«iTB'trri 6 cmoToPropt 0 yBMHii!AMO 6 _PK. Vekje 4 -* 4 
Am Lem • 4 Forne'IrTTGcmonbFVopLMMamCmaerijeiier 4 ~ 

1 12 FarnB'lnr6choarToPropLjeweA4eini)lsljevelO.RoMGais'Ce • skSCX 

113 

1 14 E»UMtj»«C2_ClcK; 

115 EntSm 

116 

1 17 Err_b*iLeiie(2_ac)c 
I IS MsgBoz Err Deacnptan 

1 1 9 neeirra E)iLbM-me(2_Clck 

120 

i 2 iEmsm 

122 

123Privels Sm btiMO.CickO 

124 On Error GoTo EnJ«)Lm«D_Clck 

125 

126 Dim hgFtocor<»*«n As Long 

127 Dim sIrSQL As S»ing 

128 

129 kigT^onfskm-MeiCisrentf^lBcard 
IX 

131 OoCirvlCkae 

132 

IX OoCmd.OpenForni-(rmSchoo(ToPropLewB*4enr 

134 Doom GoToRecord acOekFamv TrmSchoarrciPropLeMiMainr , acGoTo, 
kigRecaxtiksn 

135 ForTTB!fiTi£cmonraPropLateMe>8CmBanLMl • 3 
IX 

137 ' Update tie setoc tod property H> 

1 » stSO. - -SELECT IFPropertyNwne.FKl FROM FUC.SCH.PfO> WItPE 
SCozrsel^aTtw.FK - ’ 4 

FarTTtollm£choorroPropljMMam!SCou^eAruntiv.F9(.Vakje 4 ** 4 - Am 
AMOS.FK • ’ 4 Forn«l8rrficnoarroPropLeMiMttnl!AM0S_PK.Vatue 4 *- 4 * 

Am L«m • * 4 Fonre'IrrrGcman'oPraptiMMBtoSCmettiLevei 4 ~ 4 * 

LNCN SELECT ILPropartyf^rTB.nq FROM LOG.SCH.PROP W1tF€ SCou^uNurrtw.FK 

• ’ 4 Farm! f^I«Sctloo(TelPropL«wBNalneSCouse^ksTt>Br.PK. Value 4 ■" 4 " 

Am AMOS.FK - - 4 FOTB'frrTechpoffoPrcpte««Wa »>8 AM0S.F1< Vteje 4 “ 4 
Am Lem • 4 FortmlfcmSchoarToPropLAelAamCmaanLem 4 ~ 

IX FanTs'lnrGcmanbPropLeve4Aaint!tal.emo.Ro«6ource • sSSOL 

140 

141 £)iU>W-»wO-C»clc 

142 EelSm 

143 

144Erf.bteLeweO_Ciclc 

145 MsgBoz Err Deacnplon 

146 ReeuTte EjiLbFi.meO.Ctck 

147 

i46EmSm 

146 

150 Pmma Sm btoLeweM.CtckO 

151 On Error GoTo Err.bMjteeM.Ctck 

152 

153 Dim IngFtocantLm As Long 

154 Dim seSGL As Sting 

1 55 

1 56 tegRscorcNsn m Me Oirrenftocad 

157 

156 DoCmdCbee 

158 

160 OoCmdOpwiForm-IrTTiSctwoJToPrc^jLevoWainr 

181 OoOnlGoToRBcad acOatoFornv -IrmSchoolToPropLeveMainr. acGoTo. 

kigRBCorcf'ksn 

162 ForTneHfTT6cmofl’ePtopLte»e44iinl)0>oeenL»m • 4 

163 

164 ‘ Update tw tetoctod properly Isi 

165 etSCL - -SELECT IFPiop»iyNtot».FK] FROM FLfC_SCH.PfO> WFCFE 
SCoMseNsTte.FX • * 4 

ForT 7 »>tfTrtSchoon'oPropLeieWamiSCowieNjrr*er.FH.Vakje 4 ~ 4 " Am 
AMOS.FK . * 4 FoTTT»!frmScmdToProp»meW»nllAMOS_PK.Vakje 4 - 4 * 

Am Lem • - 4 ForTTtot(riT£choonoPrDpLeweMainl!Cme«nLem 4 ** 4 * 

UN ON SELECT [LProp8rty7teme_FKl FROM LOG.SCH.PROP WFCFC SCoinioAUTtoiir.FX 



2990 - ■ 4 Forn»!lTmScftoo(ToftopLew^mneSCoaaeN*Ttior_PK. Value 4 "* 4 * 

2991 AmAM0S.FK>-4F<riTB!lnTSclzxiToPrapLeieMaml!AM0G_PK.Value4-4 

2992 AmLem. 4F«rrm.'lrn6choafToPrapLei«MtonecmaaN.em4~ 

2993 166 F(7TrB.'lrrTSchootToPrapLeiie44ajnClsl.emo RonSoace • stSGL 

2994 167 

2996 166E»U)etem« CIcIc 

2996 169 EalSm 

2997 170 

2998 i7iErr.btiLem4.C5ck. 

2999 172 Ms^z Err.Descnplon 

3000 173 Raoizre EjtLbtLoseM.Ctck 

3001 174 

3002 l75EmSob 

3003 176 

3004 177PmetoSmt)tLemS.C5ckn 

3006 ITBCh Ezra GoTo Err.btiLeve6.Clck 

3006 179 

3007 180 OmtogRacardNsTiAs Laig 

3008 181 DmstSGLAsSting 

3009 182 

X10 1S3 kigl^cordNm-MeCitren<=tocad 

3011 184 

X12 185 OoCrnlQoee 

3013 186 

X14 187 DoOndOpenFaTn-lTmScliaorToPrapLeweMrnr 

3015 188 DoCmlGc>TaRBCad acOatofarTTV -frmScIznlToPrapLeieMainf , acGoTo. 

3016 kigRacacNjn 

X17 189 Forrns'lrnScIteonoPrapLeiietmaieChaBenLem • 5 

3018 190 

X19 191 ' Update tteiekctod;roper1ytsi 

3020 192 $tSa • -SELEa [FPropertymme.FKl FROM FUC.SCH.PROP WFCRE 

3021 SCourseNsrmr.FX • ~ 4 

3022 FcnrnllriTficmofToPropUiweWaineSCaaeeNtiitior.PK Value 4 ~ 4 ' Am 

3023 AMOS JTC--4FortT*)tm6choe/FoPropLeveWartJAMOS_PK Value 4-"4- 

3024 Am Lem - - 4 ForrrsdrrTSchoeToPropLemMainBChQaanLem 4 ** 4 * 

3025 UNCN select JLPropartyNeite.FKl FROM LOG-SCH.PROPW1CfiESCoasoNMT*w_FK 

3026 - ” 4 f<rins!frirSemoToPropLew«*4airirSCou'eeNart>er.PK. Vakje 4 “ 4 • 

3027 Am AMOS.FK . ~ 4 Forrns'frfT^cIteon'oPrapLteieMamAMOS.PK.Vakje 4 4 

3028 AmLem* 4 FaTTe!lmnSchoafToPropLesetAateGCrioaerijem4 -- 

3028 193 ForrmllrTTScmoCoPropLeweMzmteLemDHowSoace. stSa 

3030 194 

3031 l9SEjiU>Mmm5_aclc 

3002 196 Em Sub 

3033 197 

3004 1 98 ErT_b«jeyo6_C5clc 

3035 199 Mi^z Err Oeacnplai 

3036 200 fWrte EaLbtiLemS.CIck 

3037 201 

3038 202EmSm 

3039 203 

3040 204PrA«teSmb*cem6_acko 

3041 206 Cn Erra GoTo Err_bW.em6_ack 

3042 206 

3043 207 DtnIngRscadNmAsLjang 

3044 208 OtnstSa. As Sting 

3045 209 

3046 210 kigAicaUmn.MeCurenlRecad 

3047 211 

3046 212 DoOmacNe 

3049 213 

3060 214 DoOrzlCpenFami-trmSchoan'oPrapLaieMunr 

3061 215 OoCmd.GoToFtocad acOateFaTiv -IrmSchooToPropLeweMsinr. acGoTo, 

3062 tegF^ordNsn 

3053 216 Fonre'lmSehoofToPropLeieMuneChoeBnCem - 6 

3064 217 

3Q6S 218 ‘ Updab aetectod {Toperly lai 

3068 219 $tSa - -SELECT iFPropertyftemo FK) FROM FUC.SCH.PROP WHERE 

3067 SCaa«V«zitea_FK -~4 

3068 FarrtellriTSchcxiToPrcTLeieMamSCaaaaNziiba PK.Vakje 4 - 4 ' Am 

3069 AMOS.FK - " 4 FaTmKmScmrfToPropLeweWainBAMOS.PK Value 4 •" 4 • 

3060 AmLem>*4Farmzi|riT6ctioon'oPropLeMiMainl!CrzteaLem4-4- 

3061 UNONSELECT|lPropartymmB.F)qFRCMLOG.SCH.PRQPWFCRESCaxsoNrT*)or_FK 

3062 • • 4 Faira.'IrmScmon’oftcpiLeiioNair^SCoaaeNarbef.PK.Vakje 4 •" 4 * 

3063 ArnAM0S.FK.~4Fan«.>fnT6cmctfToPrapLei«Mamt!AM0S_PK.VaU>4’'4 

3064 Am Lem • 4 Fornte'trnSchooroPrapLeseMamiChosaciLem 4 ~ 

3065 220 Farm.'lrirGchoan'oPrapLBweMunetal.emo RauSoace - stSQL 

3068 221 

3067 222EjiLbti.tems Ckclc 

3068 223 EjilSub 

3068 224 

»70 225 &r_bWjom6.<aclc 

X71 226 ktegBox Ert.Oeacrrptai 

X72 227 Rnaite EeUbtlemC.ack 

X73 228 

X74 229EmSm 

X75 230 

X76 231 

X77 232 ftiveto Sit) Cfrt>CaaseNzTt>aFm.AtterUpdaiBO 

X7S 233 

X78 234 DtnRAsRscadMl 

3080 235 SerR.MaRacaiMQate 

3081 238 RFurf^irst *tSCourseNaT*of_PK] - ’ 4 Chr(34) 4 

3082 Ma>IcntiCoaseNjnt>arRnd| 4 Or(34) 

3083 237 Me Bookmark •RBookmark 

3064 238 Mel[cnteCotfseNrrtoerRn:n . NJ 

3085 239 Mb SCoasaNUrrtar J>K.Seracie 

3086 240 

3087 24lEmSm 

3068 242 

3089 243Rtivete Sub FanuCirrentO 

3090 244 DznstSa. flrinpun. stlnpuQ As Staig 

3091 245 DeninLem As Intoga 

3092 246 

3093 247 'Update tie Lem 0 1st 

3004 248 inLem . 0 

3005 249 stSO. • -SELECT [FPropatyrmtte.FK) FROM FUC.SCH.PROP WHERE 

3006 SCaaatf4tr«ia.FK - ~ 4 Ma.SCaneNtrtia PtCV^ue 4 4 ’ Am AMOS.FK • 

3007 *4imAM0S_PK.Vakje4-4- AmLem-*4te4em4-4-UNON 

3006 SELECT {LPropertyrmrte_FKl FROM LOG.SCH.PROP WkCRE SCourseNMtw.FK - * 4 

3009 kteSCoaseNarba_PK.Vak»4 -4- Am AMOS.FK- *4 MeAMOS.PK. Value 

3100 4-~4* AmLem--4*iLem4~ 

3101 250 Me.MLemoRo«6oace- stSGL 

3102 251 

3103 252 ' Update tie Lem 1 1st 

3104 253 inLem - 1 

3106 254 atSO. - -SELECT (FPrfMartyfmno.Rq FROM FUC.SCH.PROP WHEFC 

3106 SCoaseNarba FK -~4Me.SCaaseNzitia PK.Vak»4~4’ AmAMOS.FK- 

3107 -4imAMOS.PK.Vme4’*4-AmLem.-4zi40m4-4-LNaN 

3106 SELECT (LPtopertybte»teJXlPROMLOG.SCH.PROPWhERESCcarseNaTt>a_FK-- 4 

3100 MeSCoaseNzTtiaJ>K.Value4-l-AmAM0S_FK--4MeAM0S_PK.Vakje 

3110 4 "• 4 * AmLem • ■ 4 litem 4 “ 

3111 255 Matetemi RMSarce. ftSGL 

3112 256 

3113 2S7 ’ Update tw Lem 2 Itt 

3114 256 li4.em-2 

3115 258 rtSa- -SELECT fFPtpperlyNuite.FK] FROM FUC.SOCPROPWrCRE 

3116 SCaaatf4aTtea_FK - ~ 4 Me SCoasiNarta.PICVakte 4 4 ' Am AMOS.FK • 

3117 -4MeAM0S_PK.VaU>4“4-AmLem--4ziajim4-4-UN0N 

31 18 SELECT ILPropaVmna JTC! FROM LOG.SCH.PROP W1CRE SCoaseNarta.FK - * 4 

3119 lmSCaa»NMtia.PK.Vakja4-4- AmAM0S.FX.~4im AMOS.PKVakj* 
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312D 

3121 

3122 

3123 

3124 

3125 

3126 

3127 

3128 

3129 

31X 

3131 

3132 

3133 

3134 

3135 

3136 

3137 

3136 

3139 

3140 

3141 

3142 

3143 

3144 

3145 

3146 

3147 

3146 

3149 

3150 

3151 

3152 

3153 

3154 

3155 

3156 

3157 

3156 

3159 

3160 

3161 

3162 

3163 

3164 

3165 

3166 

3167 

3166 

3169 

3170 

3171 

3172 

3173 

3174 

3175 

3176 

3177 

3178 

3179 

3180 

3161 

3162 

3163 

3164 

3185 

3186 

3107 

3188 

3189 

3190 

3191 

3192 

3133 

3194 

3195 

3196 

3197 

3196 

3199 

3200 

3201 

3202 

3203 

3204 

3205 

3206 

3207 

3206 

3209 

3210 

3211 

3212 

3213 

3214 

3215 

3216 

3217 

3216 

3219 

3220 

3221 

3223 

3224 

3225 

32ZT 

•xyyn 

3229 

3230 

3231 

3232 

3233 

3234 

3235 

3236 

3237 

3238 

3239 

3240 

3241 

3242 

3243 

3244 

3245 

3246 

3247 

3246 

3249 



6 "* 6 ' And LmI > ' 6 ln1L*wM 6 ” 

260 Mi IsILmC RowS<X 4C* ■ itSQL 

261 

262 lnlL«v«1a3 

263 »rSQL - 'SELECT lR>rop«VN*ir»_FK] FTOM FurC.SCK-PftOP 
SCouf»«Ni4rts«_FK - “ 6 Ms SC«4*st4rt»«_PK.V*)us 6 “ 6 * And AMOS.FK . 

-* 6 Ms AM06,PK.Vttkjs 6 6 * And Lsvsl - * 6 dULswsI 6 " 6 ' UNION 

SELECT ILPropsrtyNanw.FK) FROM LOG_SCH_PROP WICRE SCoirssNLirbsr^FK . “ 6 
Mi SCourssNurriiw.PK Vans 6 *'* 6 ' And AMOS.FK > -* 6 Ms AMOS.PKVikJS 
6 *” 6 ■ And LmI • • 6 lnlL4v»J 6 " 

264 Ms.btl.tMO RdwSotfC* - jTSQL 

265 

266 inttsvsl > 4 

267 ttSQL - •SELECT (FPropsrtyNMW.FK] FROM FU6D_SCH.P«0P WHERE 
SCows«Nirt>sf.FK - - 6 Mi SCoufssNumbsr.PK. Vilus 6 ~ 6 ' And AMOS.FK . 

" 6 Ms AMOS.PKVakJs 6 ■" 6 ' And LmI * ' 6 IntLsvii 6 " 6 ' UNION 

SELECT (LPrcfisrlyNwm.FKl FRCM LOG_SCH.PHOP WHERE SCouf»sNun*sr J=K - " 6 
Ms SCourssNisttxv.PK Vilus 6 6 ' And AMOS.FK > ' 6 MsAMOS.PK. VaIus 

6 *'* 6 ' And LsmI • * 6 inlLsvsl 6 " 

268 Ms btUsvsU RomS<x#ca - s8SQL 

269 

270 IrULAMl » 5 

271 »»SQL - 'SELECT (FPropArtyNAiTW.FKl FROM FUND.SCHLPROP WHERE 
SCour»ANi<tib«_FK - " 6 K4s SCourssHUrOsr.PKVeAiA 6 ~* 6 ‘ And AMOS.FK > 

' 6 Ms AMOS.PKVaIua 6 6 ' And Ltvsl - ' 6 IntUSMl 6 " 6 ' UNION 

SELECT (LPtopsrtyHbms.FK] FROM LDQ.SCH.PROP WHERE SCoursAfOrtJsr.FK - " 4 
Ms SCou»»sNi*nbsf.PKVilus 6 '“ 4 ' And AMOS.FK - “ 4 Ms AMOS.PKVaIu# 

4 ~ 4 • And Lsvsl- ' 4 IntLswal 4 “ 

272 Ms bfljiVBlS RowS<x 4C* > JffSQL 

273 

274 inlLsvsl s 6 

275 itSOL - -SELECT I FPfopsrVNMW.FK) FROM FUND.SCHLPFOP WHERE 

SCouTMNisTOsr.FK ■ 4 Ms SCourMNLntMr.PK.V(AjA 4 4 ' And AMOS.FK - 

4 Ms AMOS PKVaJus 4 *" 4 ' And Isvsi - ' 4 tnttsvsl 4 " 4 ' UNION 
SELECT (LPropsrtyNanw.FK) FTOM UOG.SCH.PROP WHERE SCourssNLirt)A».FK - “ 4 
Ms SCouf*sNurt)sr.PKVNus 4 ~ 4 ' And AMOS.FK - ” 4 Ms AMQS.PKVsius 
4 ~* 4 ' And LmI - ‘ 4 inlUvsl 4 " 

276 blLsvsie RoMSotse* - sS’SQL 

277 

278 

279 End Sub 

Form iftnSchooTToPropLsvsMbrrt 
Cods 

1 Abibute VB.Nams - 'Fcnn_lrmScboorToPTOpLAvsMainr 

2 Ablbuts VB.Cf AAtabts - Trus 

3 Abibuts VB.PrsdscIbsdId - Trus 

4 Ablbuts VB.&fxMSd - FAbs 

5 Opbon ConpATs Dab^Ass 

6 Opbon E^dt 

7 

8 Privsti Sub b«OMA.aick() 

9 On Error GoTo Err.bUCIoss.Clcli 

10 

1 1 Dtm I^RAcordHOn As Lortg 

12 

13 I^RicordNun > Ms CvrSTdRsocrd 

14 

15 OoCiTvlCtoM 

16 

17 OoCmd.OpsnFonn 'IrmSchoonbPropsrvMsInr 

18 OoCmd GoToRscord acOabForm 'IrmSchoofToPropsrtyMAinr. acGoTo. 
l^gRscordMin 

19 

20 E>SLb*'Cto»s.Clclc 

21 E)4tSut> 

22 

23 En.b*iC3o8S.C»clc 

24 MsgBox Err Dsscrlptton 

25 Ramtis &dLblnaMs.Clcl( 

26 

27 ErxlSub 

28 

29 PrIvBlA Sub btnOsisli.CkckO 

30 On Error GoTo ErrJ)H0sl8b.Clck 

31 

32 

33 OoCmd OoMsnuIbni AcFormBar, acEdiMsnu. 6. . AcMsnuVsrTO 

34 OoCmd lScMwuJMniacForTTtaAr.AcEdlMAnu. 6. acMstuVatTO 

35 

36 EidUbrOsteb.CIclc 

37 041 Sub 

38 

39 ErrJstnDsteb.CSclc 

40 hbgBox Err DsacripOon 

41 Rakots 04LOfr>OslA«s.aiCk 

42 

43 EndSub 

44 

45 PnvnlA Sub ChossnLsvsl.Af*BfUpd«teO 

46 

47 Dtm srSQL As SirinQ 

48 

49 ' U^dAti ths pobntA) propsrly l« 

50 ikSQL - 'SELECTOISTINCTRCW IqryUr»onAIPropsrty] (FPropsnyHtons.PKJ 
FROMqrylWor^APtopsny LEFT JON qrvUmanPropsrly^ Lsvsl ON 
IqryUnionAlPropsrlyl IFPropsrtyHtarriA.Piq > 

jqryUniooPropsnyByLsvsl] IFpTOpsrtyHtamA.FK) WHERE 
||qryUnlonPropsrty^LjSvsl).IFPrcpsrtyNAms.FK] Is NJI).' 

51 Ms blLsvsOtussd RowiS<uca ■ strSOL 

52 * I thA pfopTty fell 

53 irSQL -"S ELECT (FPropsrtyNAms.FK] FROM FUND.SCH.PROP WHERE 

SCourssNisrtMr.FK - " 4 Ms SCourssHNrrbsr.PKVAlus 4 ~* 4 ' And AMOS.FK - 
" 4 Mi AMOS.PKVaIua 4 4 ' And Us\sl - ' 4 Ms OwsAnUsMl VaIua 4 

4 ' UMON SEL£CTlLPropsrtyN«TS.FK) FROM UOQ.SCH.PnOP WHERE 
SCoursANuTtosr.FK - ■• 4 Ms SCoursAMnibsr.PKVANs 4 •" 4 ' And AMOS.FK . 

’ 4 Mi AMOS.PKVaIua 4 4 ' And Uvsl- ' 4 Ms.CbOMnLsvd^VAkjA 4 

54 Ma bLsvsO RomS<x#os • s»SOL 

55 

56 EndSub 

57 

56 PnvsiA Sub CTTbCourssNisnbsrFindJVbrUtidAiB<) 

59 

60 Dim R As Rscordsst 

61 Sst R > Ms RscorduKSons 

62 RFindHrst ISCotMSAHUrrbsr.PK] - ' 4 C>v<34) 4 
Ms<(crnbC4xss«r4jrrbsrFind] 4 Cbr(34) 

63 Ms BoolOTWk > RBootonark 

64 Ms<(cmbC<xissNL*TibsrF1nd] ■ NlA 

65 Ms SCours#NifTbsf_pKSA(Focus 

66 

67 EndSub 
66 

69 Prtvob Sub Forrti_Currsf\1() 

70 

71 Om srSOL As Sirng 

72 

73 'U|)dstBVtspolvi«Al propsrly 1st 

74 siSQL • •SELECT DrSTlNCTRCW IqryUrWrVMPropsrlyl.lFPropsnyNorrA.PKJ 



3250 FROM qryurvoftA*»ropArly LEFT JOIN qryUhionPropsrtyByLsvsl ON 

3251 (qryUniofvAIPropsrlyl (FPropsrtyNamA.PK) « 

-•tw (qryUnionPropsrty£^Lsvsl].IFPropsrryN«n9_FKJ WHERE 

((qryLSiwnPropsrty^LsvsO (FPropsrtyNirTts.Fiq Is H4J).' 

3254 75 Ms bSjtvsKbuisd RowSotsci ■ sIQQL 

3255 76 ‘ UpdAb tfb SAbctAd propArty ftt 

3256 77 sTSQL - 'SELECT (FPropArVNon».FK) FROM FUND.SCH.PROP WHE RE 

3257 SCoursA^ksytMr.FK - ~ 4 Ms SCourssNiiTbsr.PKViius 4 •" 4 ' And AMOS.FK - 

3250 •*4kbAM0S.PKVAluA4 '“4 ' AndLAvsl- • 4 Ms ChosAnLsvslValus4 

3259 4' UMON SELECTlLPTopsrtyNams.FK) FROM UOG.SCH.PROP WHERE 

3260 SCoursANunbsr.FK - " 4 Ms SCourssNisibsr.PK V aIua 4 *" 4 ' And AMOS J=K - 

3261 -*4MsAM0S_PKV4AiA4'‘'4 ' AndLsvsl-'4Ms ChossnLMlVAlus4 



3263 

3264 

3265 
3268 
3267 



3270 

3271 

3272 

3273 

3274 

3275 

3276 

3277 

3278 

3279 

3280 

3281 

3282 

3283 
3264 
3285 



78 Mi bllMO RowSotfc* ■ stSQU 

79 

60 EndSub 

81 

62 

63 PiTVbi Sub UnArrow.OckO 

64 Dim frm As Fom\ cl As Coniol 

85 Dun wbn As Vvmnt. InS As Inbgir 
66 Dim sirSOL As SKirtg 
87 

68 ' Etmutas tw cuTTbtl rtcord is mm b (h# SCHCOL tablt 

89 DoCmd DoMinulMtn acFormBAr. AcPACordsMsnu. scSavARtcord. . 

90 

91 ' 7h I codA «tbrs tw sAlAcbd Tsr gAi MOS's into »» SCH.TCT.MOS 

92 SaI Irm ■ Forrm'IrmScttoofToPropLsvAWwnt 

93 SaI Cl • frmfblLMlUhuisd 

94 For Each vorim In etltorTBSAlaebd 

95 For Inti • OTocaCoUmCoitot- 1 

96 

97 ' Ihis pub tw valus found In ths 1st box into a bid box. 
mAlcng n raAdabls by IPs qusry 

98 FbrratrrrnSchoorroPropLawMsIntTorgsIVAlus Volui - 
cl Cokjmn(infl. varbn) 



3287 

3288 

3289 

3290 

3291 



3294 



3301 



3304 

3306 



3309 

3310 

3311 

3312 

3313 

3314 

3315 

3316 

3317 

3318 

3319 

3320 

3321 

3322 



3327 



3331 

3332 

3333 

3334 

3336 

3337 



3341 

3342 

3343 

3344 

3345 

3346 

3347 

3348 

3349 



100 ' Disabtss t>a AC Bon qusry conn rmaOon massags 

101 ApplcAlon.S«Opllon ‘Confsm Aclon OuArlAS'. Fabs 

102 DoCrrtoSaiWamngt (Faba) 

100 

104 ■ Enbrs f>s volus Into Bis SCH.TCT.MOS bbto 

106 OoCmdOpAnOuAry ■qryUpdabFLfNO.SCHf.PROP' 

106 OoCmd OpanOusry 'qryUpdobLOG.SCHLPROP' 

107 

108 ‘ EnAbbi Bis action qusry confirmabon msssags 

109 Applciiilon.S«tOpaon 'Confirm Aclon Qusnsa', Trus 

1 10 DoCmd SalWarnlngs (Trus) 

111 

112 NwilnB 

113 NsidvwIBn 

114 

1 15 * Updsto Bis pol■^lai proparty 1st 

1 16 srSQL - 'SELECT DIST1NCTROW Iqry UniotAIPTopsrty] IFPropsrty Nsms.PKJ 
FRCM qryUmonA^opsrty LEFT JOIN qryLhionProparlyBy Lsvsl ON 
IqryUbofvMPropsrty) JFPropsrtyNama.PKJ - 

(qryUnfonPropsriyByLavaq (FPropsrtyNanns.FK) WHERE 
([qryllnionPropsrtyByLaval] tFPropsrtyNanra.FK) Is Mil).' 

117 Ms.bLavalUituMd HovvSoiacs - sBSQL 

118 ' Updoli Bis ssiscted propsrly Isl 

119 srSQL- ■SELECTjFPropsriyNams.FK] FRCM FUHO.SCH.PnOP WHERE 
SCoursaNurrbsr.FK -''61^ SCoussHUrbar.PKValus 4 *• 4 ' And AMOS.FK « 

" 4 MbAM06_PKVaIua 4 4 ' And Laval - ' 4 1i^ QtosonLmialValus 4 

4 ■ UMON SELECTILPTopanyNams.FK) FROM LOCLSCH.PROP WHERE 
SCoursaMjmbAr.FK - - 4 Mi SCosssMsnbar.PKVsAiA 4 4 ' And AMOS.FK > 

■ 4 MiAMOS.PKValui 4 ~* 4 ' And Laval - * 4 Ms ChosanLaval Valua 4 

120 Ms bLavaO RowSoifca - sBSQL 

121 

122 End Sub 

123 

124 Prtveto Sub n^lAtTow.CIckO 

125 Oimfrm As Form, cl As CotBoI 

126 Dim varim as Viriant InB As imsgar 

127 Dim sBSQL As Sfrng 

128 

129 "INs cods DbabBwtAbctadTtrgat MOS's wtd lb assoclabd 
antoas Irom tw SCH.TOTJ40S labto 

1 30 Sat trm ■ FormaltrmGchoon'oPropUivaMMnt 

131 SalcIsfrmfblLavaO 

132 For Each varim In cBItomaSAlacbd 

133 For iriB ■ 0 To cB CohamCoirt - 1 

134 

135 ' This pub Bta valua found In Bta 1st box Into A tad box. 
maWng It raadabb by Bia quary 

1 36 FortmitrmSchoofToProptawaAMntI TargatVolue VakJA ■ 
cl Cototm(ino. varim) 

137 

138 ' Disabiss Bta aclon qusry confirrmlon massags 

139 AppICABon SaOpBcn 'Confsm Aclon Quarias', Fabi 

140 DoC)TtoSa(Wwnlrtgi(Fabt) 

141 

142 'DbabsBtiracordassociAbd alto twspacifiadvniua from 
toa FUhO or LOG SCH.PR0P labb 

143 OoCmd OpanOuery 'qryOabiiFUhO.SCH.PRCiP* 

144 OoCmdCparOjary 'qryDabtoLOGL.SCH.PROP' 

145 

146 ' Enabbs Bis aclon qusry confirmation massage 

147 ApptcaSorvSaiCpBon ‘Confirm Aclon Quarias', Trus 

148 DoCmd SafWmnlrtgs (Trus) 



3351 150 NsiBlnB 

3352 151 Nsd varim 

3353 152 

3354 153 * Updaii tos potonlai propsrly 1st 

3355 154 sISQL. -SELECT OISTlNCTnOWI«yyUh*onAIPropsnyIlR>ropsrtyNams_PKJ 

3356 FRCM qryUn*onA»Topady LEFT JOIN qryUruonPropsrtyByLaval ON 

3357 IqryUnionAIPropsrty).|FPropsnyNama.Piq ■ 

3358 [qryUr»onPropsnyByljSval).|FPropartyNams.FK) WHERE 

3358 (|qryUhlonPtopartyByLBval).IFPropaftyN«Tis.FK] IsMil):' 

3360 155 Ms bSjMiLlnusad RosuSot/cs - sBSOL 

3361 1S6 ' Updtai Its ssisctod propsrly 1st 

3362 157 sBSQL- ■SELECTlFPropsrtyNama.FK] FROM FUND.SCH.PROP where 

3363 SCoursaNuntoar.FK - - 6 Ms SCotfSStOrbar J>KV«lua 6 " 4 ‘ And AMOS.FK . 

3364 ” 4 MsAMOS PKVakjs 4 '~ 4 ' And IjSmI - ' 4 Ms ChosanLaval Valus 4 

3365 4' UMON SELECTILPropenyNmto.FKJ FRCM LOG. SCH.PR0P WHERE 

3366 SCotfsaNLjntoar.FK-'‘4Me.SCoursaNLrTtoar.PKV«lua4*'4‘AndAMDS_FK- 

3367 ‘*4 Ms AMOS. PKVakja4~' 4 ‘And Laval- ‘4 Ms ChosanLaval Valua4 

3368 



3369 

3370 

3371 

3372 

3373 

3374 

3375 

3376 

3377 

3378 

3379 



156 Ms bLavaD RowSouca - sBSQL 
159 

180 End Sub 

Form frmScntoMsrlns 
Cods 

1 Ablbuls VB.Nsma ■ 'Forrn.fm'ficrubMwins' 

2 Abibuls VB.Craabbb - Trus 

3 Abibuls VB.PrsdacbrsdId > Tnjs 

4 Abibuls VB.Eifiossd - Fabs 

5 OpBon Corrpara Osttbssa 



79 



3380 

3381 

3382 

3383 

3384 

338S 

3386 

3387 

3388 

3389 

3390 

3391 

3392 

3393 

3394 

3395 

3396 

3397 

vtott 

3399 

3400 

3401 

3402 

3403 

3404 

3405 

3406 

3407 

3408 

3406 

3410 

3411 

3412 

3413 

3414 

3415 

3416 

3417 

3418 

3419 

3420 

3421 

3422 

3423 

3424 

342S 

3426 

3427 

3426 

3429 

3430 

3431 

3432 

3433 

3434 

3435 

3436 

3437 

3438 

3439 

3440 

3441 

3442 

3443 

3444 

3445 

3446 

3447 

3448 

3449 

3450 

3451 

3452 

3453 

3454 

3455 

3456 

3457 

3458 

3450 

3460 

3461 

3462 

3463 

3464 

3465 

3466 

3467 

3468 

3469 

3470 

3471 

3472 

3473 

3474 

347S 

3476 

3477 

3478 

3479 

3480 

3481 

3482 

3463 

3464 

348$ 

3486 

3487 

3488 

3489 

3490 

3491 

3492 

3493 

3494 

3495 

3496 

3497 

3498 

3499 

3500 

3501 

3500 

3504 

3506 

3508 

3507 

3508 

3509 



6 OpDonEj«8cit 

7 

8 PrKM* Sob Ck>M_Clck() 

9 On Errof Goto EfT.ao**_C»ck 

10 

1 1 D*m lOocNarT* A» Stnng 

12 Dim iQjnkOnkrla A* S»mg 

13 

14 'OoMCtfranttorm 

15 DoOndCbi* 

16 

17 ' Op*n ap«cift«d form 

18 »(DocNnn» « *1fmPi4proc«»snoiE»cu»onSwthboof(J’ 

19 DoOmd OpanForm *OocNama. . . *lLinJ(OiiMis 

20 

21 EJ<LCtoa*_Clclt 

22 EjdtSub 

23 

24 En.Ctoaa.OicK 

25 MsgBox En Daxrlplon 

26 &d(.O09*.CIc)c 

27 

28 End Sub 

29 

30 Prtv«» Sub cfrbP«fFin<JJ«WUpdo»() 

31 

32 Dtm R A» Rw»)rdM( 

33 Sal R - Ma RaeordMtCtona > 

34 R.Rndnrst1P£Fl-*iCt»(34)4MB>|cn*Pa1Rndl4a»<34) 

35 M» Bootonwlt - RBootonark 

36 MatcrrbPatRnd) > F4J 

37 tM SSK.PKSalR>cus 
36 

39 EndSiA) 

40 

41 PttvaliSubciTt>SSNRnd>mrUl3del»() 

42 

43 OmRAt Rac<xd»a< 

44 SatR - Ma.RacordaatQona 

45 RFWRri»lSSH_PKl-’4Chr(34)4PAil|«rbSSNRnd)4C»r(34) 

46 Mi SooluTwV - RBooMrark 

47 lutol|eff4>SSNRfid) - NlA 

48 MiCloaaSalFocui 

49 

50 End Sub 

51 

52 PnvBli Sub Oalak.CackO 

53 OnErcorGoToEn_DaMi_Clc)i 

54 

55 

56 DoCfnd.OaMwvttam acForniSir. acEdIMwiu. 8. . acMinuV»70 

57 0oCmd.0oManuitam acRxmBar. acEditAMi, 6. . acManuVgrTO 

58 

59 &4L0aMa_Ct«k. 

60 &dtSub 

61 

62 ErT_Daia*i_C»eK. 

63 MioBox En.Oascflpton 

64 Fteauma ExILOoiaii.ClCk 

65 

66 End Sub 

67 

68 Privati Sub Pomi_Cutin|) 

69 DlmitSOLAiSMng 

70 

71 ■ Updaia t>a PEF UsI 

72 itSOL - •SELECT DtSTlNCTOCW IMARINEl.JPEFJFROM MA«KE LEFT JOIN PEF 
ON (MARI^C] [PEF] a (PEF].pEF_PKlWHER£ ((PEF1,|PEF_PK] It NufJORDER BY 

73 lAi cntiPalRnd RowSowci ■ t*SOL 

74 

75 EndStU 



Form IrmSpadalAstignminl 
Coda 

1 AVibuli VB.Nama > 'Fomi_frTTiSpad«4AM)9mnr 

2 Avibuto ve.Crailabla - Trua 

3 AvitMa VB.Prodadwadld a Trua 

4 A»ibuk» VB_E8WMd a Faiaa 

5 Opton Compora Databoaa 

6 OpIonEivIcIt 

7 

8 Prtvati Sub crrbClauNi4TtMr_An»lJpdalaO 

9 

10 dm trConvart At Srlng 

11 

12 Mt MRaporCoto - Ma cirbCteuNirte CoAjnr(2) 

13 Ma bdMCC ■ Mi cn<)Clua^kl 1 «Mr CduiiTi(4) 

14 

15 ‘ Comsrt 8ii litcal yMMD a 5>o dglt rurrOir lor R03 Ria 

16 t»Cornw1aCS»(Macrrt>C)a»tNtt7t>arCo4j7iri(3)) 

17 ttCorwt a RlghttttrConwar^ 2) 

18 Ma DdFY • ClrtlstrConvart) 

19 

20 Ma odAtsiyrnanrTVpa m ’S' 

21 

22 End Sub 

23 

24 Prtvab Sub crrbOastNurtMr.EntorO 

25 

26 dm tVSOL At SYrig 

27 

28 "tbMquarvDnda twckttrMrtMrt. raportditotarKlclaat 
ccrrvanno dolM aatociWKi w4«) na cnoaan achool 

29 itSQL- ■SELECT 8NA„0aRACT,Clat»l4»T*>ar_PK. 
BNA^EXTRACTCtatCorrwOaaa. BNA^BCTRACT. RapooDa*. 

BNA_EXTRACT fiacalYaar.PK. 8N\.EXTOACT MCC FROM 8NA_EXTHACT INFER JOIN 
SCH.TCT_M0S on (BNA^eCTHACT CouraaN«T(bar_PK . 

SCH.TGT>OS TCo*taaNL»rb«_FK) AM3 (BNA^DORACT TarpaWQS.PK . 
SCH.TGT>0S TtrpaMOS.FK] WFERE 0NlV_0aRACTCour*aF*rt>ar_PK - 
Forra'fmtSpaa^Ai»otrrar«cirtOaurtaFkjnnfaar AND SOL.TGT.MOS AMOS.FK a 
Formal IrmSparMlAtugnmantWAMOS. * 

30 ttecrrtOaasFUTbar RowSotrcaa tlrSQL 

31 

32 EndSiA) 

33 

34 Prtvati Sub cmbCouraaNuTtMT^nvljpdataO 

35 

36 lutot<tAMOG-Malat«>CourtaNurrbarCoMrrn<i) 

37 

36 EndSii) 

39 

40 PrlvataSubcrrbSSN^narLpdataO 

41 

42 MabdSOI>Ma<cfrbSSNCoUm{1) 

43 Ma MDdadOala > MaicmbSSNCeA«nn(2) 

44 

45 EndSli) 

46 

47 PrlwMi Sub crrbSSN.EnlarO 

48 



3510 

3511 

3512 

3513 

3514 
351$ 

3516 

3517 

3518 

3519 

3520 

3521 
xtjyf 

3523 

3524 

3525 

3527 

*>■;?»< 

3529 

3530 

3531 

3532 

3533 

3534 

3535 

3536 

3537 

3538 

3539 

3540 

3541 

3542 

3543 

3544 

3545 

3546 

3547 

3548 

3549 

3550 

3551 

3552 

3553 

3554 
3556 

3556 

3557 
3556 

3559 

3560 

3561 

3562 

3563 

3564 

3565 

3566 



3570 

3571 

3572 

3573 

3574 

3575 

3576 

3577 

3578 

3579 

3580 

3581 

3582 

3583 
3564 

3585 

3586 

3587 



3590 

3591 



49 dm tVSQL At Sbmg 

50 

51 trSQL a •SELECT dSTlNCTROW MARIFESSN_PK MAHIIESd 
MARIE. Or adDoli FROM MARIE LEFT JOIN ASSIGF6ENT ON MARE SSN.PK a 
ASSIGMJENT.SSFLPK were (((ASSIQMJENTSSH.FX) It lAJ))/ 

52 Ntocrrt>$SN.RoiMSo(tca-trSQL 

53 

54 End Sub 

55 

56 Pnvate Sub cntkSSNRnd JUtvUpdatoO 

57 

58 dm R At Rocordsat 

59 Sat R a Ma RacordtatOona 

60 RRndRrtl '[SSN.FK] a * & 0*(34) & Ma>(cmbSSEind] & Ov<34] 

61 Ma Boohmadi a RBootonarti 

62 Mal|cmbSSEind] a FM 

63 KAa Ctota SatFocui 

64 

65 End Sub 

66 

67 Pnvota Sub DaMa.CtckO 

68 Or^ Error GoTo Err.DaMa_Clck 

69 

70 

71 OoCmd DoManulltmacFormBar. acEdKManu. 8. . acManuVerTO 

72 OoCmd DoManulltm acForrEar. acEdtVAamj. 6. . acManUVarTO 

73 

74 EttLCaMa CIcIc 

75 Exit Sub 

76 

77 En.Oalato.CIcic 

78 MagSoxEfr.Daacrtpton 

79 Fteaurra EMLOalala.Ckck 

80 

81 End Sub 

82 

S3 Private Sub Ck>ia_Cicl4) 

84 On Error QoTo &r_Ctoaa Ctck 
65 

86 dm stDocNama Aa SPing 

87 dm tOJnfcCriteriaAa String 
68 

69 • Cloaa arrant form 

90 OoCmd.Cioaa 

91 

92 •Opanipaclfladtorm 

93 tIDocNama a 'frmPrapracasting&EttcuBonSviiUcnboard^ 

94 DoCmd.OponForm atOocNoma. , . atUnkCflteria 

95 

96 EjtLCJoaa.CIc*. 

97 Exit Sub 
96 

99 Ert_Ctoaa_CWc. 

100 MigBox Err Daacripton 

101 Rituma EtdLOoaa.Ctck 

102 

103 End Sub 

104 

lOSPrtvate Sub Form. Out ordO 
106 

107 • Pravantt uaar from accidantaly maMng tpodal astignmantt to 

martnaa aatignad normal 

106 If lsNUI{Vto ctTtoSSNValua) a Fatea Ttun 

109 Ma'cndtSSNEnabted - Fteaa 

110 MalcmbCoiraoFtjnbar Enabted a Fatea 

1 1 1 Ma*crr4)C>at»IAtrbar Enacted a Fatea 

112 

113 ' Alowt lha uaar to anter valuat lor tva havdamantel aqualon 

114 Elsa 

115 Ma'crrteSSNEnabted.Trua 

1 16 Ma'cmbCouaaNunfaw Enabted a Trua 

117 Ma'cirtjCtettNunbar Enabted a Trua 

118 

119 End II 

120 

121 End Sub 

122 

123 Pfivaia Sub Form.Opan(Cancal Aa Integar) 

124 

125 

126 OoCmd GoToRocord acOateForm. IrmSpactalAjalgnmaftr. acNawRac 

127 



3594 

3595 

3596 

3597 



3601 

3602 

3603 

3604 



3607 

3606 

3606 

3610 

3611 

3612 

3613 

3614 

3615 

3616 

3617 

3618 

3619 

3620 

3621 

3622 

3623 

3624 

3625 

3626 

3627 



3630 

3631 

3632 



3635 

3636 

3637 

3638 

3639 



129 End Sub 



Form IrmSpaclaiAsaignmanCOlUhaategnarMBrtria 
Coda 

1 ABrlbute VB.Nama a ■Forrn.IrmSpacialAtsignmantOfUrtettignarfAarno* 

2 Airibute VB.Craatibte a Trua 

3 AVibute VB.Pradaclaradld a Trua 

4 A»lt)ute VB.EtfXtead a Faiaa 

5 Opton Compara Oatebata 

6 Option Et^clt 

7 

8 Pnvota Sub cntrOaatNLjrTtterJUterUpdaN) 

9 

10 dmtbConvart AaSring 

11 dmtaSSNAtStIng 

12 dm R Aa Racordaat 

13 

14 Ma btftapartDate a Ma.cnMassNunbar Cokxm(2) 

1$ Ma bMCC a Ma.cmbCtetaNumbar Colum(4) 

18 

17 ' Convart tw Hacal yaar to a teo d^t rwmbar lor RD3 Ria 

18 tfCorwt a CSY(Ma crnbCtettNumbar CoMmn(3)) 

19 arConvan a Rghl(tbConvart 2) 

20 ktetiFYa ani(t«Convort) 

21 

22 Ma bdAaargnmanOypa a *S* 

23 

24 - Kaap track Of Ovo cvrant SSN 

25 trSSN a Mt cmbSSN 

26 

27 Ma bdAMOS a |iAa<ctrbCautaFUTt»r.CoUrn(l) 

28 

29 • Lpdalii Vte curranl form arvd aubtorm 

30 MaFlaquary 

31 MaRapaint 

32 

33 ' Movoa tva racotd back to tia currant SSN 

34 Sat R a Ma RtcordaalCtona 

35 RRndRrat 1SSN_FK} a • 4 Cbr(34) 4 trSSN 4 Ctr(34) 

36 Ma Bookmark a RBootonatk 

37 

36 End Sub 

39 

40 Private Sub cntoClaitNurrtior.EnterO 

41 

42 dm atSOL At Skinn 

43 



80 



3640 

3641 

3642 

3643 

3644 

3645 

3646 

3647 

3646 

3649 

3650 

3651 

3652 

3653 

36S4 

3655 

3656 

3657 

3656 

3659 

3660 

3661 

3662 

3663 

3664 

3665 

3666 

3667 

3666 

3669 

3670 

3671 

3672 

3673 

3674 

3675 

3676 

3677 

3676 

3679 

3660 

3661 

3662 

3683 

3664 

3665 

3686 

3667 

3688 

3689 

3690 

3691 

3692 

3693 

3694 

3695 

3696 

3697 

3696 

3699 

3700 

3701 

3702 

3703 

3704 

3705 

3706 

3707 

3708 

3709 

3710 

3711 

3712 

3713 

3714 

3715 

3716 

3717 

3718 

3719 

3720 

3721 

3722 

3723 

3724 

3725 

3726 

3777 

3726 

3729 

3730 

3731 

3732 

3733 

3734 

3735 

3736 

3737 

3738 

3739 

3740 

3741 

3742 

3743 

3744 

3745 

3746 

3747 

3746 

3749 

3750 

3751 

3752 

3753 

3754 

3755 

3756 

3757 

3758 

3759 

3760 

3761 

3762 

3763 

3764 

3765 

3766 

3767 

3768 

3769 



44 ' 1>u* quary find* th* clus rMnbari. rapon dates and class 
convanng (talas associatad vMlh taa choaan school 

45 strSQL - *S ELf CT 8Nf_OORACT. CtasshUr6ar_PK. 
8NA_EXTRfcCT.OassConvOata. BhUV_EXTOACT.RaporOata. 

Sl^eORACT.RscalYaaf.PK. 8NA_ EXTRACT. MCC FROM BNA_EXTRACT INNER JON 
SCH.TCT MDS ON (SNA. EXTRACT. CoorsaJAanbar^PK - 
SCH.1UT_U3S.1Couf»aT*«Tfcar.FIQ AND (BNA^EXTRACT.TaigaWOS.PK - 
SCH.TCT.MOS.TarijeWOS.FK) W^CRE BNA_EXTRACT.Co«r»aNu«T*)ar_PK . 
R>rrnsltnnSpacjalAssi7vnanl0fljnassigna<MwlnalciTtaCouraaNdnbar AfC 
SCK.TCT_M0S.AM0S_FK - 

46 Ma cff4>ClaasNiaTibar.ReMSO(jrca • strSOL 

47 

46 EnlSub 

49 

50 Povata Sub cn«;oursaNLifrtw_ATtorl^Ktata() 

51 

52 OKU sbSSN As String 

53 Dim R As Racordsat 

54 

55 strSSN - Ma cirtaSSN 

56 

57 • Kaap Irack ol tha eurranl SSN 
56 sSSSN-MecmbSSN 

59 

60 Ma MAMOS - MalcmbCoursaNuTtwr.Colunn(l) 

61 

62 ' Updatas taa currant lorm and sttaform 

63 Ma.Raqua«y 

64 Me.Rapalnt 

65 

66 ’ Momss tha racord back lo lha currant SSN 

67 Sat R> Ma.Racor(ta«ICloo« 

66 aRtkJFirsi ’tSSN.FK] - ’ & Chf(34) 6 strSSN 6 Chr(34) 

69 Ma.Bootonanc - RBootananc 

70 

71 End Sub 

72 

73 Privtaa Sub cntaSSNJUtadlpdataO 

74 

75 kto.MSO( . Ma'cirbSSNCoUrvHI) 

76 MaMGracOala • MatcirtaSSN. CoUrm(2) 

77 

76 End Sub 

79 

80 Phvata Sub cntfsSSN.EmarO 

81 

82 Dim slrSOL As String 

83 

84 torSQL • *SEL£CT DISITNCTROW MARINE.SSN_PK. MARINE.SOI. 
MABf£.(3radOata FROM MARINE LEFT JOIN ASSlGMwCNT ON MAHf£.SSN_PK - 
ASSIGM«NT.SSN_FK WHERE «(ASSIGMtfCMT.SSN_FK) Is Nul))'.‘ 

85 Me.cmbSSN.RcHvScutca> sirSQL 

86 

87 EndSub 
66 

89 Prnata Sub cr><iSSNFin(tAnar1Jpdtta() 

90 

91 Dim R As Racordsat 

92 Sat R • Ma RacordsalClona 

93 RFIndfirst ‘ISSN.FKJ - * 6 Chi(34) 6 Ma'[cmbSSkrindJ 6 Chr(34) 

94 Ma.Boolonano RBootorwk 

96 Mel[cmbSSNFInd] • Nal 

95 Ma Ctosa Safocut 

97 

96 EndSub 
99 

lOOPnvasa Sub OaMa_Clck() 

101 On Error CoTo Err.DalaSa.Ctck 

102 

103 

104 DoCmd.DoManultam acFormBar. acEdlManu. 8. . acManuVar70 

105 DoCmd-DoManultam acFoimBar. acEdIManu. 6, . acManuVarTO 

106 

l07EJ<LOatota_C»clc 

108 Ej4ISub 

109 

110Err_DalaSa_Ckck 

111 MsgBox ErT.DascHp«cn 

112 Rasiana EtaLCiaiata.Ck* 

113 

114 End Sub 

115 

1 16 Pnvala Sub Oosa.CIckO 
Il70n Error GoTo ErT_Oosa_CW( 

lie 

119 ' Oosa currant form 

120 OoCrrdClosa 

121 

122EjBLaosa_C»clc 

123 EiltSub 

124 

12SErr.Ck5aa_Clclc 

126 MsgBox Err. Date npllon 

127 Rasuna ExILCtosa.ack 

128 

l29End Sub 

130 

131 Pnvala Sub Foftn_CurranlO 

132 

1 33 Ma<cmbSSN.EMbtod • Trua 

134 MalctrACoursaNumbar Enablad - Trvja 

135 MalcmbQassNdnbar.Enablad - Trua 

136 

137 

138 

139 End Sub 

140 

141 Prlv^ Sub Form_Opan(Cancal Asinlagar) 

142 

143 

144 DoCmdCoToRacord acDataForm, 
frmSpaclalAssi7«nsntO(Uiassi7iacMailna. acNaw^te: 

145 

146 

147 End Sub 

Form frmUhasayiarfitannas 
Coda 

1 ASnbuta VB.Nama • ’Fonn_trmUnassigna(Mannas’ 

2 AOnbula VB.CraataUa • Trua 

3 ABributa VB.Pradeclaradd • True 

4 Aimbula VB.Eiqiosad - Faba 

5 OpBon Compare Database 

6 OpOcn Elicit 

7 

e PdvMa Sub Oosa.CtckO 

9 On Error Goto Err_aose_Clck 

10 

It Dim slOocNama As String 

12 Dim sdUnkCrttarta As S Mng 



3770 13 

3771 14 ■ Oosa lha eurranl fonn 

3772 15 DoCmdCtosa 

3773 16 ' Open spaciflad form 

3774 17 siDocNtana - 'IrmAnatyxaRasur 

3775 18 DoCmdOpanForm sOocNtma. . . slUnkCillana 

3776 19 

3777 20 Ej(LCtoaa_Ckclc 

3778 21 Etfl Sub 

3779 22 

3780 23 Err_Ctoaa_Ckclc 

3781 24 MsgeoxErr.DascnpHoo 

3782 25 RaMsna EtdLO>sa_Ckck 

37B3 36 

3784 27 EnJ Sub 

3785 28 

3786 29 Ptlvola Sub cmbSSNBndJtnarUpdalaO 

3787 30 

3788 31 Dim R As Racordsat 

3789 32 Sat R«Ma.Racorctaa(Ctona 

3790 33 RFIrxJflrsI '[SSN.PK] - * 6 Chft34) 6 Mal[cnnbSSM=ind] 6 Chr{34) 

3791 34 Ms.Sootonanc - RBookmark 

3792 35 Nto'IcmbSSNFlnd] . 1^ 

3793 36 Ma.Ctosa.SaFocus 

3794 37 

3795 38 EndSita 

3796 39 

3797 40 Private Sub Form.CurranlO 

3798 41 

3799 42 Dim sbSQL As Stnng 

3800 43 Dim rac As Racordsat 

3801 44 Oimttal AsDslabasa 

3802 45 

3803 46 Sal <t>1 - CurranlDb() 

3804 47 

3805 48 ' CaJcutalas lha nuntwr ol triassignad marlnav 

3806 49 itrSOL - ‘SELECT Cosa«(PEF) AS TotelUnossI^ FROM 

3807 SO Sat rac • d>1.0par)Racorctaat(slrSQL (tiOpanSnapstiol) 

3808 51 Ma birTolaAJnasalTiad - reclTotatltaassJTi^ 

3809 52 

3810 S3 End Site 

3811 54 Prtvwa Sub HnAs«gn_CkckO 

3812 55 On Error CoTo Err_b«iAs«7vCkd( 

3813 55 

3814 57 Dm stOocNtena As Sbing 

3815 SB 

3816 59 sDocNama • ‘trm&pocialAssignmantOtUhaisiTiaiMBnna' 

3817 60 

3818 61 DoCmdOpanForm sCocNama 

3819 62 

3820 63 ExtL-bhAssi^.Cick; 

3821 64 EjllSub 

3822 65 

3823 €6 Err.blnAssiTi.CSck: 

3824 67 ktegSoxErr.Dascnpkon 

3825 68 Rausna EjdU>«V^»»*^_Clck 

3826 69 

3827 70 EndSub 

3828 

3829 Form sublrmFiaxtamantelPropariy 

3830 Coda 

3831 1 Aiirlbute VB.Nema - *Fonn_subf rmFirdamantalPropariy* 

3832 2 Attribute VB.Craaiabte - Trua 

3833 3 Attribute VB.Pradaclaradld - Trua 

3834 4 Attribute VB.EtaMsad - Ftesa 

3835 5 Opion Compare Database 

3836 8 Op«on Eiteldt 

3837 7 PilvM Sub embVakja_FKJtfterDpctate<) 

3838 8 

3839 9 FormBlfrmFL»»daniantelPropany'[FPropanyName_PK].SalFoeus 

3840 10 

3841 11 EndSub 

3842 12 

3843 13 Private Sub cmbVatua_F)^Ba(oralJpdate(Cancal As Integer) 

3844 14 



3645 

3846 

3647 

3848 

3649 

3850 

3851 

3852 

3853 
3654 



3857 

3858 

3859 

3860 

3661 

3662 

3663 

3864 

3865 



15 On Enor GoTo Err_embValua_R(_6atoraUpdate 

16 

17 Dim d> As Database 

16 Dim rac As Ftecorttaal 

19 Dim s«rSOL As Stting 

20 Dim Convart As Vansnt 

21 

22 ' Ptecasvtalua in a form agreeable b Access (a g. HT or '10^ 

23 Convert -*" 6 

Forms'frmFitedamantalPropartylaubfmFitedamantalProparvlerTteValua.FK & 

24 

25 • Opens tea tabla PROPERTY_VALUE 

26 sarSeX - *P ROPERTY^VALUT 

27 Sa((l>-CurranlDb<) 

28 Sal rac - (te.OpanRacordsettsIrSQL. dbOpatsSnapahol) 

29 

X ' Saarchat for tha vaiia aniarad by lha usar In ttia 

31 rac. fin<f=lrsi *VaJua_PK - * * Convert 

32 

33 'If ttw value Is itei In ttePROPERTY_VALUEtabte.lt Is added. 

34 It rec.NoMaieh « Trua Than 



3867 

3868 

3869 

3870 

3871 

3872 

3873 

3874 

3875 

3876 

3877 

3878 

3879 

3880 

3881 



36 ' Osabtea tea acton query conrirmafion massage 

37 ApptcsaortSalOplon ‘Conflrm Acton Quanas’, Faba 

38 

39 ‘ Enters tea veAia into tea PROPERTY.VALUE tabla 

40 DoCmdOpanOuary ‘qryUpdataProparty.VsIua* 

41 

42 'Updataa tea drop down 1st tor tha conteobox 

43 strSQL - ■SELECT DISTINCT ‘ 6 
Fo<m3!frmFitedantentalPtoparty'MinnaFiaid& * FROM MARINE;* 

44 

Fdrms'liTTfundan»nta<PropanylsubtimFtfxl8rtentaJFYoparty'eiTteVa)ue_FK.Ro«rSou 
rcea sbSOL 

45 

46 ‘ Enablas tea acton query eonfirmaton massage 

47 AppBcaliorLSalOplon 'Confirm Acton Ouaiias', Trua 

48 End If 



3884 

3885 

3886 
3867 
3888 



3894 



50 rac.Ckm 

51 

52 EjlUntiVa)ua_FK.BatoraUpdate 

53 ErltSub 

54 

55 Err_cmbValua_FK_BaferaUpdita: 

56 MsgBox Err . Dascilpton 

57 AppIcaSorvSaCpIon ‘Confirm Acton Ouarlas*. Trua 

58 Raiisna Edt_CirteVakJa FI^BaforaUpdato 

59 

60 End Site 



3897 

3898 

3899 



Coda 

1 Attribute VB.Nama • ’FomvaubtrrrFundantentalProparlyUsr 



81 



3900 

3901 

3902 

3903 

3904 

3905 

3906 

3907 

3908 

3909 

3910 

3911 

3912 

3913 

3914 

3915 

3916 

3917 

3918 

3919 

3920 

3921 

3922 

3923 

3924 

3925 

3926 

3927 

3928 

3929 

3330 

3931 

3902 

3933 

3934 

3935 

3936 

3937 

3938 

3939 

3940 

3941 

3942 

3943 

3944 

3945 

3946 

3947 

3948 

3949 

3950 

3951 

3952 

3953 

3954 

3955 

3956 

3957 

3958 

3959 

3960 

3981 

3962 

3963 

3964 

3965 

3966 

3967 

3966 

3969 

3970 

3971 

3972 

3973 

3974 

3975 

3978 

3977 

3978 

3979 

3980 

3981 

3962 

3963 

3984 

3985 

3986 

3987 

3988 

3969 

3990 

3991 

3992 

3993 

3994 

3995 

3996 

3997 

3998 

3989 

4000 

4001 

4002 

4003 

4004 

4005 

4006 

4007 

4008 

4009 

4010 

4011 

4012 

4013 

4014 

4015 

4018 

4017 

4018 

4019 

4020 

4021 

4023 

4024 

4025 

4028 

4027 

4028 

4029 



2 AEVibul* VB.CrMiBbto • Tru* 

3 ABnbutB VB.Pradaclxvdld • Tru* 

4 AmbuM VB_E)ipCMd • Fab« 

5 Opion Con^A 0«lab«3« 

8 Opion Ej^ciI 

7 

8 Pn\«i» SiAi cfrt>Vaiu*_fK_B«tor«UpdB»(Cenc«1 A» lntog»r) 

9 On Errof GoTo EfT_cfrt>VaJu*_FKLB*fo™UpP“i» 

10 

1 1 Dim (1> As 0«iab«s« 

12 Dim roc As Rocordsot 

13 Dim sirSOL As Stnng 

14 Dim Conuorl As Vonant 

15 

16 *0pons 9io KiblrmFunOomoniKlProporty so Oio tofcwing codo wJ 

17 DoOmdOpanFomn ’siWfTnRFXliifnonlalProporV* ocUddon 

18 

19 

20 ' Placos vokjo in • fonn egrooabio b Accoss (• g. ‘HT or ‘1(7) 

21 Convort - “ A Formst[suWrmFisidamonWProporVjlcn4>V4luo_FK & 

22 • Op«» tabto PnOPERmr.VALUe 

23 itrSQL - 'PROPERTrY^VALUE* 

24 

25 Sotcti-C^oniDbO 

26 Sot roc > db OponPocordsoltstrSQL dbOponSni^Mtiol) 

27 

28 roc finrFirsI 'Voluo.PK m * & Convort 

29 II roc.NoMach- TnjoT)wi 

30 ' DissOlos ocbon quory canrmmtan mossage 

31 Appicalon SoGpion ‘Conlttm Aclon Ojonos’, Fobo 

32 

33 DoCmd-OponQuory ‘qryUpdolsProporty.Valuo* 

34 slrSQL - ‘SELECT DISTINCT ‘ A 
Fotrm'fmiFundafnonliJPrDpoflylMorinoFiold A ‘ FROM WAWC;" 

35 Mo. cnOVikjo^FK. RowSouco • rtrSOL 

36 

37 * Enablos iho acton quory confirrmbon mossago 

38 Appicabon.SaCpIon ‘Cortfitm Aclon Quonos', Tr\«o 

39 End If 

40 

41 roc Ooio 

42 

43 ‘Oosos tio subtrmFimdamonl^ProporV votwul smng cbangos to 

44 OoCmd.Closo acFonn. ‘subfrmFtxidomonMPiopony* 

45 

46 

47 £siL.cmt)Valuo.FK_BotoroUpdatB 

48 EotSub 

49 

50 Efr_cft4>Valuo_FK_Bolorol4»dali. 

51 MsgBoxErr.Doocnplon 

52 AppIcatoaSoCpIan ‘Confirm teton Quenoa‘. Truo 

53 F^suno E«LcnibVi4uo_FI^_BoloroUpdali 

54 

55 EndSii) 

56 

57 Pmato Sii) VoluoJX-BoloroUpdai»(C:ancal As Inligor] 

58 On Error GoTo Err_Valuo_FK_BoforoUpdrti 

59 

60 Dim db As Ootabaao 

61 Dim roc As RocordMt 

62 Dim ssSQL As String 

63 DimCoiwort As Varwn 

64 

AS ' Placos valuo in a form ayooaNs to Accois (# g. ‘HT or ‘1<7) 

66 Convort • “ A 

Forms>fnnFundBmor>talProporiy>subfrTnFijndwnontalProporvLi«ttValuo_FKA *~ 

67 0p«i8 too lobb PflOPEFrrY.VALUE 

68 stSOL- ‘PROPERTY.VALUE' 



4030 

4031 

4032 

4033 

4034 

4035 

4036 

4037 
4036 

4039 

4040 

4041 

4042 

4043 

4044 

4045 

4047 

4048 

4049 

4050 

4051 

4052 

4053 

4054 

4055 

4056 

4057 

4058 

4059 
4080 

4061 

4062 



4065 

4066 

4067 



4071 

4072 

4073 

4074 

4075 
4078 

4077 

4078 

4079 

4080 

4081 

4082 

4083 
4064 

4085 

4086 

4087 

4088 

4089 

4090 

4091 
40S2 

4093 

4094 

4095 



27 sMnpwt • “ A SSN A “ 

28 slMarV^iaSQL«‘SEL£CT‘ Aiti«^uRaldA‘ AS(Vitua] FRQMMARNE 
WHERE SSN_PK - • A stonput 

29 Sal r«c2 • <li1 ,Op«iRKordsai(seiiterV«luaSCL (A>Opar\Snapalx>0 

30 vwtiteVbua - rac2!Valua 

31 

32 stfitodValuaSQL - ‘SELECT Valua.FK FROM FLND_PROP_VAL WFCRE 
FProp#nyNsmB_FK > ‘ A FundPropNsms 

33 Satrac3.<toVOp«iRBCOidsaitslrFitodVa)u0SQU<toOp«riSnapsbot} 

34 varFtsvTVbua - rac3'VekJs_FK 

35 

36 ‘ Convart vvFttodValua and wMarVaJua to • numanc, il poasibb 

37 If IsMsnancfwFuidValua) And IsMananc^vaiMarValua) Than 

38 varFttodValua « Ctr«(vaiEitodYalua) 

39 vaA4vVbua . am(v«iMarVatoa) 

40 Eba 

41 varEtridVilua • CStr(vBrFtsidValuo) 

42 varMarVtMa • CStrfvartiAarVbua) 

43 End If 



45 Salad Casa sUFmfOparator 

46 Casa‘>* 

47 If varMarValua • varfundValua Than 

48 FitodPnpTast - Tim 

49 End It 

so CaM‘nd-‘ 

51 It varMarVbua <> wRndValua Than 

52 FttodPropTasl - Trua 

53 End It 

54 Caaa‘<‘ 

55 HvaiWarVbua<v«rfia>d1/4*uaThen 

SB FundPrepTast • Tnra 

57 Endtt 

56 Casa ‘>‘ 

59 ItvarMsrViluasvBrfntodVakiaThan 

60 FundPnpTast « Trua 

81 End If 

62 Casa‘<-‘ 

63 If varMarValua <• varFisidVbua Than 

64 FundPropTasi « Tnra 

65 End If 

68 Caaa‘xi‘ 

67 if saiMsiValua » varfitodVatua Than 

68 FundPropTasi • Trua 

69 End If 

70 Caaa 'in' 

71 Do Unll rac3.ECf 

72 varfttodValua • rac3!VaLw_FK 

73 It lsMiroanc(vwf itodVaiua) And Ishtomanc(varMarVaiua) 

74 varRtodVaJua • QnKvarftfidVAja) 

75 varMarVtoua • Cld(vwMvVaiia) 

76 Eba 

77 vatPtmdValLa - CSfrtvatEitodVtlua) 

78 vaiMarVatoa • CSbtvwMsrValua) 

79 Endtt 

80 II varVarViAia-varFundVbuaThan 

81 Funrf>repTas1 ■ Trua 

82 Endlf 

83 rac3.MavaNn4 

84 Loop 
as End Salad 

86 racZOosa 

87 rac3.C>osa 

88 dil.Ctosa 



4097 90 End Fuicton 

4098 91 PuMc Funcion LogOrTas1(lnput1 As Boolaon. Inpul2 As Boolaan) As 

4099 92 



70 Sal db - CorranlDbO 

71 Sal rae > db.OpanRiKrordMi(sfrSOL (tOpanSnapahol) 

72 

73 rac.Fin<l=irsl "Valua_PK - ‘ A Convart 

74 ‘ This It Than sMtonanl chacks to saa it toa antorad vaJua is in 

75 PROPEFmr.VALUEtobb. ItnoLitisaddadtotoa labia. 

76 If rae.fUVMrh « Trua Than 

77 ‘ Dsiblai toa acton quary contirmalon maisaga 

78 Appkcabon.SalOplon ‘Confitm Acton lianas'. Falsa 

79 

SO DoOxlOpanQuary ‘qryU^idaltProparty.ViluaLrsr 

81 

82 ‘ Enabias toa acton quary cor^irmaton massags 

63 Appkcaton.SaCpbon ‘Confirm Acton Guanas', Trua 

84 Endlf 

as 

86 racOosa 

87 

88 &ot_Vbua_FK_Batot»Updato 

89 Eat Sub 

90 

91 Err_Valua_FK.BaloroUpdaia 

92 Msf^osErr.Oascnpton 

93 AppicatoruSaCpton ‘Confirm Acton Guanas', Trua 

94 Fbsuma EaL.Vtlua_FKLBaloraU^la 

95 

96 EndSUi 



Modtia modFitoassDalarminaton 
Coda 

1 AOnbuta VB.Nama • 'modFitoassDatorrrsnalor* 

2 Opton Corrpara Oalabasa 

3 Opton Er^Acit 

5 Dim togStort, togEnd As Long 



8 Pubic Ftsvton FuncPrepTaalfFundPropNama As Sinng, SSN As Sinng) As 

9 

10 Dim roc As RKordsaC rac2 As RoconbaL rac3 As Racortbal 

1 1 Dim stMarfiato As Stong stFisidOporator As Stongi sirSQL As 

12 Dim strMarVatiaSQL As Stnng. strFtffidValuaSaL As String, stinput As 

13 Dim varfundVakja. varMarVbua 

14 Dim (±)1 As Daiabasa 

15 

16 Fufx5>ropNama « “ A Fun«#»ropNama A “ Ths artotassion 
proparty formates toa argumant FundPropNwna. by placing a ‘ in front d 
and bahind toa vatoa found *i Ftsi^ropNama 

17 

16 Sat 4>1 • CunanObO 

19 

20 sOrSQL - “SELECT MannaFiald. Oparteor FRCM FUfCAMEMTALJ>RDP£RTy 
WHERE FPropartyNama.PK - * A FundPropNama 

21 Satroc > dll OpanRacortbaQterSQU (toOpatvSnapihol) 

22 strtiterFiald. raCMannaFiald 

23 

24 stfisvdOparator • raclOparaior 

25 
28 



4100 

4101 

4102 

4103 

4104 
4106 

4106 

4107 

4108 

4109 

4110 

4111 

4112 

4113 

4114 

4115 
41 18 

4117 

4118 

4119 

4120 

4121 

4122 

4123 

4124 

4125 
4128 

4127 

4128 

4129 

4130 

4131 

4132 

4133 

4134 

4135 

4136 

4137 

4138 

4139 

4140 

4141 

4142 

4143 

4144 

4145 

4146 

4147 

4148 

4149 

4150 

4151 
41S 

4153 

4154 

4155 

4156 

4157 

4158 

4159 



S3 If Inputi Or Inpu12 Than 
94 LogOrTasl.Trua 



95 Baa: LogOTatt. Faba 

96 Endlf 

97 

98 EndFuictan 

99 Pubic Functor LogAndTasl(lnput1 As Boolaan. Inpu(2 As Boolaan) As 

100 

101 If Inputi And InpuQ Than 
ICS LogAndTasta Trua 

103 Eba; LogAndTaal • Falsa 

104 End If 
106 

106£ndFvnc»on 

10? Pubic Fwicton LogPropTasVLogPropNama As Stong SSN As Sinng) As 

108 Dim ntNsaUBautd As Integtr. } As Intogar, k As Integax. I As 
Integar, m As Iniagar 

109 Dim booOrOparalor As Boolaan. booAndOparator As Boolaan. 
booNoCparator As Boolaan 

110 Dim selogcalEquakon As Smng sttSQL As Sinng sblnpul As 

111 Dim strWortongEqn() As Stong 

1 12 Dim dtSpacaPo* As Integar ‘ poakon of toa spaca 

113 Dim d)1 As Datobasa 

1 14 Dim nac As Racordsal 

Its 

118 Saldbl -CUrranlDbO 

117 

118 ‘Gal toa to^calaquaon from toa LOGICAL_PROPEF7rYtebla 

119 stinput - ** A UsgPropNama A ** 

120 stSQL- ‘SELECT LogcteEquaton FROM LOa<>L.PFOPERTY WHERE 
LPropartyAbma_PK - ‘ A sblnpul A “ 

121 Sal rae • dbl .CpanRacordsa((strSCl. diOpanSnapshoO 

122 sttogcaEquaton - racttogcalEquator 

123 

124 ‘ Parsa toa *ing into an array 

125 ' dactera toa tenporary smng as an array 

1 26 FbDim strWortangEqrKO) As Sinng 

127 

128 ‘ Find toa poaiton o( toa firsl spaca 

129 infipacaPos • inStf stLoy cal E quaton. ‘ ') 

IX ‘ bop (toll no mora ipacas ara l»tod 

131 ‘ InSt rakjmt 0 if toa spaca is not toisid 

1 32 Do Itokl intSpocaPoa - 0 

IX ' ladmansion toa array, addng anotoar abrrant 

134 ' UBoitodtelsuthowinanyalamantitoaraalraadyaiaintoa 

IX RaOim Praaarva stWoi1ang£9i(UBound(ibWoi1angE7i) « 1) 

IX 

137 ' S4T toa nawalamanito toadteracters from toabagnmngol toa 

IX ' sting up to toa int spaca. LaftS ratorra a nurrtoar of 
IX ‘ f rom toa bagnrsng of a sting 

140 stWoriongEqn(UB<Mid(sbWoi1ong£qn)) - 
Tnm$(laf1S<strLo9calEqi»kon. in£pacaPos • 1)} 

141 

142 ‘ now abva oopiad toasa characters oib toa nama. toay can ba 



143 ramowd from toa ongnal stong R^IS ratjma a nurrtoar of 

144 ‘ characters from toa and at toa stong ft is toa n^^itnoal N 



82 



41G0 

4161 

4162 

4163 

4164 

416S 

4166 

4167 

4168 

4169 

4170 

4171 

4172 

4173 

4174 

4175 

4176 

4177 

4178 

4179 

41 BO 

4181 

4162 

4183 

4164 

4185 

4166 

4187 

4188 

4189 

4190 

4191 

4192 

4133 

4134 

4195 

4196 

4197 

4198 

4199 

4200 

4201 

4202 

4200 

4204 

4206 

4206 

4207 

4208 

4208 

4210 

4211 

4212 

4213 

4214 

421S 

4216 

4217 

4218 

4219 

4220 

4221 

4222 

4223 

4224 

4225 

4226 

4227 

4228 

4229 

4230 

4231 

4232 

4233 

4234 

4235 

4236 

4237 

4238 

4239 

4240 

4241 

4242 

4243 

4244 

4245 

4246 

4247 

4248 

4249 

4250 

4251 

4252 

4253 

4254 

4255 

4256 

4257 

42S8 

4259 

4260 

4261 

4262 

4263 

<264 

4265 

4266 

4267 

4268 

4269 

4270 

4271 

4272 

4273 

4274 

4275 

4276 

4277 

4278 

4279 

4280 

4281 

4282 

4283 

4264 

4285 

4286 

4287 

4289 



145 ' chvactors. Haralara we siMad Ihs poaton o( te space 

146 le length ol Tbi»^>es IB He nuTtierol 

char actors remaining 

147 s»Lp»caJEguatoi • LTnirS(R^iS<»t1-09c*Cqu»to'. 
Len(s>Lo(K«£9«»on) * ntSpacePM)) 



148 

149 



' find Ihe ne4 space 

m£pacePos • lnS»(s*to9calEqualan, * *} 
Loop 



For k - 0 • 1) To (IBoiJxKrtWoriQngErT*)) 
Setoci Caae s»WoflangE(p(k} 

CaaeT 

For l> ()'» ^) To(k- 1) 

Setoct Case AWorlongETyi) 
Case*Or* 

booOrOperatar • True 
Case-AntT 

booAndOperalar • Tne 
Case74or 

booNolCperttor « True 
Case 'True* 

II stWorlong&rti) • *(* Then 



1 71 s> Wortong&yi(i) - *Fahe* 

1 72 booNolCtMrator • False 

173 Else 

174 strWor1ongE7i()) • Tfue* 

175 End II 

176 Else ' Eiecutod attor Ihe first 
bractotod property is tostod and stored ir> fw bcaton ot *C 

177 If booNolCperator Then 

178 alirWorlong£<ri(l) • *Fabo* 

179 booNotOperator • Fatoe 

180 End II 

181 It booOrOperator Then 

182 s9Wor1ongecp(i) • 
LogC>Tes«CBool(stWorlongE(yi(i)). C8ool(s>Woftan^7i(l))) 

183 bocOCperator » False 

164 Ebell booAralOperalDr Then 

185 s»WorlongE(^ • 
LogAndTes](C8acl(s»Wor)angEqn(i)). C8ool(s»WQrli3ngEqn(1))) 

186 bopAndOperstor • False 

187 End If 

168 End If 

189 Case ‘False* 

190 It s»War1angE(yi(i) • T 

191 II booTtofCporalor Then 

192 s»Worlong£qn(j) . True* 
booNolCperalar • False 



194 

195 



brtorketod properly is 



s»Wor1ongE<yi(j) - ‘False* 
End II 

Else ' Eaecutod altor ihe first 
Kf and stored in Ihe bcaton of T 
It booNofCperator Then 

199 s»WorlonoEqn(l) > True* 

200 booNolCberator > False 

201 End If 

202 If booOrOperator Then 

203 s»Wodong£qn(i) . 
UjgClTo8HC8ool(srWortangE<7i(D), C8ool(s»WortangE<y>(l))) 

204 booCtCperator . False 

205 Elsell booAndOperator Then 

205 s9Wor1ongEi^ . 

LogAndToslfCaooksbWoftongEqn^). CBool(s»WortongE<r<l))> 

207 booAndOperetor • Fake 

208 Ettolf 

209 End II 

210 Case T Do no9»ng 

211 CaseEtse 

212 II saWortangErrfi) - *f Then 

213 It boofitotCperalor Then 

214 sfrWor1ongE(yt(j) - Not 

(FindPropTee<s»WariQngE<to(l). SSh() 

215 

216 

217 stWor1on^<yi(j) - 

FiaidPropTosKitrWortangEttoa). SSN> 

216 End It 



ft booNolCpwatoe TTasn 

221 s>Wor1ongE(yi(l) • Not 

(FundPropTes<5»WorlQngE<yi(0. SSN)) 

222 booNoiCtoeratar - False 

223 Else 

224 s9WorlongE(yr(l) • 
F\^>dPtopTe»l(a»Worton9Eqn(l). SSN) 

225 End If 

226 II booOrOperator Then 

227 s»WodongEqn(i) > 
LogCrTesKCSooKstWortongEqnQ), C8ool(s»Wor1on^(y)(l))) 

228 bocOCperabr ■ False 

229 Ehell booAndOperator Then 

230 sfrWorlongB^ . 

Lo9AndTosl(Caool(slrWorloog£qrHD>. C8ool(s»WoftoogEcr(l)» 

231 booArriOperatar ■ False 

232 End II 

233 Ertotf 

234 End Setoct 

235 Nb)«I 

236 

237 



246 

247 



mnswAfioitod - IfiomKstWortongEqn) • (k • j) 
It imNewAJBautI o 1 Then 

ReOims»TranBformedE(yi(1 To «4Ne<«CBouw]) 
For mat To j 

skTransfortredEcMm) - skWorlongEonfin) 
Nwtfm 

For m • (k * 1) To LBoiFid(s»WoriangEqn) 
stTransforirtodEqnfm • k w j) • 



ReOimskWorlong&rtl To inNewiUBoird) 

4 *a For m - 1 To rtNewAJBouid 

250 srWorfcmgEiyXm) • sfrTranBtorrmdEiyy'TO 

251 Ne4m 

252 ;a1 *Se(|becktoa\«lueof 1 

253 GoToLmel ‘Jtsrpa beck to For j • 1 to 
{UBoitodf s»WoriongEqn)toop 

254 Else 

255 LogPropTest - s>WariungE<ri(j) 

256 Erase stWorfongEqn 

257 - _ _ 



4290 

4291 

4292 

4293 

4294 

4295 

4296 

4297 

4298 

4299 

4300 

4301 

4302 

4303 

4304 
4306 

4306 

4307 

4308 
4308 

4310 

4311 

4312 

4313 

4314 

4315 

4316 

4317 

4318 

4319 

4320 

4321 

4322 

4323 

4324 

4325 

4326 

4327 

4328 

4329 

4330 

4331 

4332 

4333 

4334 

4335 

4336 

4337 



4340 

4341 

4342 

4343 

4344 

4345 

4346 

4347 

4348 

4349 

4350 

4351 

4352 

4353 

4354 

4355 

4356 

4357 

4358 

4359 

4360 

4361 

4362 

4363 

4364 

4365 

4366 

4367 

4368 

4369 

4370 

4371 

4372 

4373 

4374 

4375 

4376 

4377 

4378 

4379 

4380 

4381 



4385 

4386 

4387 

4388 

4389 

4390 

4391 

4392 

4393 

4394 
4396 

4396 

4397 



4400 

4401 

4402 

4403 

4404 
4406 

4406 

4407 
4406 
4400 

4410 

4411 

4412 

4413 

4414 

4415 

4416 

4417 
4416 
4419 



250 Eel Functon 

259 End II 

260 CaseT 

261 i>k 

262 GoTo Leiel Jisnps back to For | • 1 to 

(OBcuxksaWcrtongEito) bop 

263 'EalFor 'Eab toe For k . ()« 1) » 

(LBand(srWorlangE(to}) bop 

264 EndSeieci 

265 Naidk 

266 Endll 

267 Neott 

268 

269 Bid FitoCton 

270 

271 Pttofic Stb FitoessO 

272 Dan sfrSCL As Stong. skOasshkartier As Siring. skAMGG As String 

273 Dan stonputi As Stong. skInpuC As Skaig 

274 Dan i As Intoger, | As Integer, k As Intoger. I As Integer 

275 Dan inNcamaFacbr As Intoger. aiiFit As Intoger, inOnput As 

276 Dan inLereli As Intoger, ailLeseC As Intoger. inLeMO As Intoger 

277 Dan inlevaU As Integer. aiiL»s«E As Integer. inLevelS As Integer 

278 DansngDewredWei^AsSngto. sngEpsibnAs&ngto. sngSiarOFilAs 

279 Dan srgCoiail As Sasgb. vigAvgHt As Sm^. sngFitoaes As Sngle 

280 Dan sn^4endFi(Value As 

281 Dan togGradOato As Long 

282 Dan <1>1 As Database 

283 Dan recCtoss As Recordset. recManne As Rscordsel recMvCisFil As 

284 Dan recPEF As (tocordset rec FDestfed As Ftocordsol recLDearred As 

285 Dun recFMand As Ftocordsei reclMarb As Fbcordeet 

286 DanbooMandPropAsBooban. booPEF As Bocben. booMandatory As 

287 DanvirReMaJAsVananl 

288 Dim fimCuTenl As ForTT|_tnnClassQjotoPenatyAndRt 

289 

290 Set frmCtarenl • Forina'irmClassaotaPenBltyArvIFit 

291 Set dbf - CwTonlObO 

292 

293 • Create TEM’_FfT tabb 

294 AppicabotvSelCpkan ‘Confirm Acton Ojones*. False 

295 

296 togOadDab • IrmCurenCMCTOadDab 

297 

298 

299 • Craab 2 TEVP.FIT tablee from MAR.CLS.F1T tabb 

300 dbl Eiticuta *SELECT SSH.FK. Mannalnebit. Cbsilndei(_FK Fitoeas IhTTO 
TDkP_FITFnoMMAR.CLS FTT.* 

301 dbl E»cub -SELECf SSN_FK MannelndoA aasiindon.FK Fitiess INTO 
TEVP.Fnri FROM MAR.CLS FIT;* 

302 

303 •Iraerl into toe TEMP_FlTlabbs Ihe appficabbSSNs based on MCT 
graitoabondab 

304 djl Esecub *tNSERT INTO TBWF.FIT ( SSN.FX )SELECT MARNE-SSN_PK FROM 
qrySSNWtCRE OadOab . * & togOadOab & ** 

306 djl Eiecub ‘INSERT INTO TEMP FITl ( SSN.FX )SELECT MARhE-SSN_PK 
FROM (yySSNWICRE GradDab - * & togGradOab & ~ 

306 

307 Apptcaton.SelCbton ‘Confirm Acton Qjeries*, True 

308 

309 ’ Create a dynaset ol toe tenp.fil tobb 

310 skSQL . *SELECT ‘ FROM TEMP_Fir 

311 Set recMarCbFrI • iftil .CpenRecordsel(stSCL dbCpenOynaseQ 

312 recMarCbRUAciwLasI 

313 

314 'Create toe Mtoswlndsx tor Ihe Tenp_fittabb 

315 ltrecMarCbFiLRecwdC<xBii>0T1wi 

316 recMardsFiLMoveFirst 

317 For I • 1 To recfibrCtsFiLRecordCoiait 

318 rechtorCbFiLEcfil 

319 recMarCbFiCMannetndes • I 

320 recMi/CbFitLbcbto 

321 recMarOsFitMoiehbrf 

322 Ne<i 

323 Endit 

324 

325 ' Create a dynaset d toe Ctoss tobb 

326 strSGL-*SELECTSC<xsseNiaTl)ar_FKAMQS.FK FROM CLASS’ 

327 Set recOass • ctol .CpanFbcardast(srSCL dbCpenOynaseQ 

328 It recCUss-EOF • False Then 

329 recCbsaMoseLasi 

330 recCbssMoveFirst 

331 Bbfl 

332 

333 ' Creab a dynaset d Ihe Manne tabb based on TE)uP_Frn tabb 

334 strSOL -*Sa£CT‘ FROM MAR tC. TB4P FJTIWICPE 
(«MARItt.SShLPK).nEMP_FmMSSN,FKD>;‘ 

335 Set recManne > dbl .OpenRecordM^stSO. dbCpenDynaseQ 

336 

337 II recMarne. EOF • False Then 

338 recMarvie MmcLast 

338 recMarwie MoitoFirst 

340 Endll 

341 

342 ' Irskabe wiabbs 

343 booMarvlProp.True 

344 mtfMt.O 

345 booPEF . False 

346 booMandatory . Fatoe 

347 mtotomteFackv . 100 

348 inLeseli • 32 

349 inLeneC • 16 

350 inLsueO . 6 

351 mLesieU • 4 

352 intiM6.2 

353 mLendfi. 1 

354 sngDeeiredWeigM > 

355 sngMandRIValUe - (1 - »igOes«redW«ghl) * mff4ormalFto;tor 

356 wRdVal<SysCmd(acSysOdlr«Metar. *StokB...*. 

367 toigEpedon a 0.000001 

358 

359 ' Venly recCbss has values 

350 ltrecOanfbcordCcuvt>01hen 

361 skaaaAksrber • ‘X* 

362 itAMOS-'X* 

363 

354 • Cycle torcugh at Ihe classes 

365 Fori- 1 TorocCaasaRrcordCowit 

366 • Yab contd tetrporanV to Wndovn 

367 DoEvents 

368 ' Ipdaie stats bar 

369 larRelVal - SyeCmd(acSysCmdUp(btoA>tetor. Q 

370 

371 ' Lpdab Ihe classmdeit_FK lor toe MarCIsRi record 

372 II recMarCtoFitRscardCattot>OThen 

373 recMarCtoFiLMoveFust 

374 For I - 1 To recMarCtoRlFbcordCoitoi 

375 recMarOsFitBif 

376 recMwCtoFitQes9Jndegt.FK - r 

377 recMarCtoFiUJptbb 

37B recMarOsFitMoveNBM 

379 Ned) 
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4420 

4421 

4422 

4423 

4424 

442S 

442S 

4427 

442S 

4429 

4430 

4431 

4432 

4433 

4434 

443S 

4436 

4437 

4438 

4439 

4440 

4441 

4442 

4443 

4444 

444S 

4446 

4447 

4448 

4449 

44S0 

4451 

4452 

4453 

4454 

4455 

4456 

4457 

4458 

4459 

4460 

4461 

4462 

4463 

4484 

4465 

4466 

4467 

4466 

4469 

4470 

4471 

4472 

4473 

4474 

4475 

4478 

4477 

4478 

4479 

4480 

4481 

4462 

4483 

4484 

4485 

4486 

4487 

4488 

4489 

4490 

4491 

4492 

4433 

4494 

4496 

4496 

4497 

4498 

4499 

4500 

4501 

4502 

4500 

4504 

4505 

4506 

4507 

4508 

4509 

4510 

4511 

4512 

4513 

4514 

4515 

4516 

4517 

4516 

4519 

4520 

4521 

4522 

4523 

4524 

4525 

4526 

4527 

4528 

4529 

4530 

4531 

4532 

4533 

4534 

4535 

4536 

4537 

4536 

4539 

4540 

4541 

4542 

4543 

4544 

4545 

4546 

4547 

4546 

4548 



380 

381 End (f 

382 ' Ch*ck k> ••• i1 naia record ti* lam* school m ti* Isst 

383 ' Itilis. appW1dlt«>^•M^R.CLS^T1lMs 

384 II (r«cClu9lSCours0Mjrrbar_FK • ttOaasNumbsr) And 

(r*cOfcsa!AMOS_FK - sOAMOS) 

385 AppicAfecxtSoCpton ‘Confirm Acton Olmoss*. Faba 

386 a>1,Ejiacu»‘lNSEm’llinDMAR_CUS_nT(SSN.FH. 
MannoIndSDt ClM»lndBxJ=K. Fiffiasa ) SElfCT TCf^_nT.SShLf K. 

TEMP .FIT.HfcnnalfKla*. TEMP_RT.Cla»4JnbB^.FK. TEH#>_nT.R#»saFRCIM 
TEMP _FIT WHERE TEMP.FrT.Fitiass > O;* 

387 Appicaton.S«Cpton ‘Confirm Acton Cljanos', Trua 

388 racCUAMorMNaxt 

389 Eba 

390 sngSumCfRf - 0 

391 sngCowit • 0 

392 txxiPEF . Faba 

390 Vanfy nacManna has valuas 

394 II racMsnna.RscordCount > 0 Than 

395 

3S6 ' Initaiis vanabbs 

397 SDInpun - *• 4 racClass!SCorjr»aM4rOar_FK & ** 

398 afr1npMe-~4racaaai)AM0S_FK4'' 

399 MietYMrt - 0 

400 

401 ' Find rJPEFs assoctabdMfiSia currant school 

402 brSQL - ‘SELECTPEF^FK FROM SCH.PEF WHERE 
SCoufsafAjmbar.FK - ‘ 4 sBInputl 4 ‘ and AMOS.FK - * 4 ttInpuC 4 “ 

403 S«tracPEF»db1.0panRacondsaK3trSGL 

404 II racPEF.EOF - Fbsa Than 

405 rKPEF.MovBLast 

405 racPEF.McMsRnl 

407 End If 

408 

409 ' Find nwidMory fundamanatf propartas aasocrabd 
Mr 9ia currant school 



410 strSQL- ‘SELECT FPropartyNsma.FK FROM FUfO_SCH_PRDP 
WHERE SCourtaMnnbar.FK - ‘ 4 stiinputl 4 ‘ AfC AMOS.FK - ‘ 4 ^npuC 4 
AhO Laval • 4 inUnput 4 “ 

411 S«tracFMand>db1.0panRKardsal(s«'S0L 

412 If racFVtoylEOF • Faba Th«i 

413 racFManrlMovaLast 

414 racFMandMovaRrsi 

415 End If 

416 

417 ' Find mandMory l 09 cal prapartas aaaociBbd Mth 
Sia currant school 

4 18 strSQL - -SELECT LPnjpartyfbma.FK FROM LCX^SCH.PROP 
WHERE SCoursaMmbar.FK - ’ 4 airlnpun 4 ‘ AhD AMOS.FK - * 4 strInpuC 4 
AfCLiMri- 4in8nput4‘‘ 

419 SatracLMand- A1 C^RscordsatfstSGL 

420 If racLMand.ECF . Falsa Thar 

421 racLMandMovaLast 

422 racLMandMovaRrst 

423 Endff 

424 

425 ‘ Find daairad fundamanlal propartas asaociabd Mth 
tiacurran school 

426 strSQL - ‘SELECT FPrepartyrbma.FK. (Laval] FROM 
FUfC_SCH_PRQP WHERE SCourtaNumbar.FK . * 4 strlncutl 4 * MC AMOS.FK . ‘ 
4 strtnput2 4 ‘ AND Laval o ‘ 4 intinput 4 “ 

427 Sal racFDasrrad - db1.C^Fbcordsal(^SOL 

428 If racFDaaiadEOF • Faba Than 



429 racFOasnarlMovaLast 

430 racFOasuadMovaRrst 

431 End II 



433 ‘ Fmd daarad b^cal propartas aaaociatadMti 8ia 
ewran school 

434 «rSQL - ‘SELECT LPropartyNsma.FK. [La«I! FROM 
LOG.SCH.PROP WHERE SCourtaNLiirrar.FK • ‘ 4 tMnpun 4 * AAO AM06.FK • * 4 
stIripuQ 4 * AND Laval o ‘ 4 indnput 4 “ 

435 SalracLDastrad*db1.0panRacorcbal(slrSQL 

436 If racLX>aai«d. EOF -Faba Than 

437 racLDatiradMovaLasl 

436 racLDaaradMovaRrd 

439 End II 

440 

441 ‘ Cycb Virou(^ al t>a tnarmaa 

442 FoT|. 1 ToracManna.RKordCoMrt 

443 ’ Valid cor«<ol bmporanV t> Windoaa 

444 OoEvanb 

445 ' Chack «> aaa if manna't PEF is an opan 

446 It racfybnna' PEF o *00* Than 

447 booPEF - Faba 

448 It racPEF.EOF • Faba Than 

449 ‘Chack to aaa if manna's PEF It 
asaociatod Mti toa schoot 

4 SO For k - 1 To racPEF.RacordCounI 

451 If racPEP.PEF.FK . racMannatPEF Than 

452 booPEF - Trua 

453 End II 

454 racPEF.MovaNsd 

455 Na«k 

456 racPEF.MovaFirtf 

457 Endfl 

458 Elsa 

459 booPEF • Trua 

460 End It 

461 ' Compara manna attobuias Mth tia mandatory 
propartas 

462 II booPEF • Trua Than 

463 ‘ Chack for mtncbtoiy furtoamantd propartas 

464 II rac RVhnd. EOF • Faba Than 

465 Fork-1 ToracFMMidRaca«dC<hfit 

466 ' Al laab mub piova trua lor to# 
mandatory propartas 

467 If booMandPro p • Trua Than 

FrjrdPropTasHracFMtnrfFPropartyNwna.FK, racMannatSShLPK) - Faba Than 

469 booMandProp • Faba 

470 End It 

471 racFMMrdMMafbxt 

472 End If 

473 Nnak 

474 racFMwKlMovaFirsI 

475 End II 

476 ' Chack for mandatory bgcal propartas 

477 II booManrPrcp • Trua Than 

478 II racLMand.EOF - Faba Th«i 

479 For k • 1 To racLMandRacordCount 

480 ’ Al bsb nuat prma trua lor 
toamandatoty propartas 

461 II booMarvfProp - Trua Than 

482 If 

LogPropTaaKracLMandlLPropaityNama.FK. racManfMlSSN_PK) - Faba Than 

483 booMsnrfVop - Faba 

484 End II 

485 racLAbnd MovaNab 

466 End II 
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4559 

4560 
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4564 

4565 

4566 

4567 
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4573 

4574 
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4576 
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4592 

4593 

4594 

4595 

4596 

4597 

4598 
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4609 

4610 

4611 

4612 

4613 

4614 

4615 

4616 

4617 

4618 

4619 



4627 

462S 

4629 

4630 

4631 



4634 

4635 

4636 

4637 
4636 

4639 

4640 

4641 

4642 

4643 



4650 

4651 

4652 

4653 

4654 

4655 

4656 

4657 

4658 

4659 

4660 

4661 

4662 

4663 

4664 

4665 



4670 

4671 

4672 

4673 
4874 

4675 

4676 

4677 

4678 

4679 



487 Naxlk 

488 racLMandMovaRrst 

489 End II 

490 If booMandProp - Trua Than 

491 iniRt- 1 

492 End It 

493 End fl 

494 ' Rasat booMandProp tor nad chack 

495 booMandProp - Trua 

496 ‘ Compara manna asnbutoa Mth the dastrad 
propartas 

497 It uttFit > 0 Than 

498 ' Compara Mto da«rad lioxfOmanlBl 

499 If racFDasradEOF • Faba Than 

500 For I - 1 To racFDaatadRacordCor#it 

501 It 

FindPropTasl(racFOaarad<FPropattyNama.FK. rac Manna) SSN.P*^ • Trua Than 

502 Sabct Casa racFOasi rad) Laval 

503 Casa 1 

504 rntfif - infil * 

505 Casa2 

506 intRt • inFit 

507 Caaa3 

508 intRt • iniRl * 

509 Casa4 

510 mlfit - mFrt ♦ 

511 CasaS 

512 rniRl . inflRf 

513 Casa 6 

514 rniRl • rnFit 4. 

515 End Sabct 

516 End It 

517 racFOasnadMovaNab 

516 Naxtl 

519 racFDasrrarlMovaRfb 

520 End II 

521 ' CorTpara Mth dastrad tomcat propartas 

522 II racLDasirad.EOF . Faba Th«i 

523 For I - 1 To racLDa*radRacotdCor#il 

524 ff 

FwxJPropTasSracLDaMradlFPropaityNsma.FK. rackbnna!SSH,Pf<) • Trua Than 

525 Sabct Casa racLDasi rad! Laval 

526 Casal 

527 intFit - intFit * 

526 Cosa2 

529 irtFit-inlFit* 

530 Casa3 

531 irrlFit - intRt * 

532 Casa4 

533 rntFit - rnlRt « 

534 CasaS 

535 rntFif • mf it * 



536 

537 



540 

54T 



intFif ■ rnlRt * 
End Sabct 
Erto It 

racLDa»radM»vaNad 
>tl 



racLDasirad-MswoFirsl 

543 End If 

544 End ff • fl kliRt > 0 Than 

545 End If ■ II booPEF - Trua Than 

546 racMarCbFiLEdt 

547 ‘ II toa manna's PEF ts not satifiad by flta 
school or tis manna doas not maat 

548 ' al flia mandatory propartas lor fla school, a 
acora of zaro rs a«»7iad. 

549 ‘ Otoanwsa. a valua M 1 la aasiTiad A scoraot 
1 mdcaba to# school had no 

$50 ‘ dastrad propartas or toa manna dd nol 

satjly any of tia dastrad propartas. 

551 ‘ Labr, 1 It sitotractad from Owsa scoras arrd 
rapbcad Mth a smal volua catod 

552 ‘ apsibn. Tha apolon is used to pravani a 
dwoon by zaro piobbm. 

553 racMarCbRflRMas - iNFif 

554 racMarCbRtUpibb 

555 racMMOaRlMovoNad 
‘ Pravanb cotoitng toa • 



557 ' Suma up al toa fib and gab a court of how 
many fib tiara era 

558 If intRt > 0 Than 

559 ‘ Tha 1 1S subDocbd trom toa mtFit scora 
and rapbcad mAi a arral apsiion 

560 ingSranOfFit - angSumOfFit . CSng(intFit - 1) 
•NAME? 

561 angCotrt • sngCount * 1 

562 End If 

563 intRl-0 

564 racMannaMovaNad 

565 Naxtl 

566 ' Provant dviding by zaro 

567 If sngCovmf>OThan 

568 sngAvgRf - sngSutrOFtt / sngCormf 

569 racMarCbRlMovaRrst 
' Updab tb TEMP.RT bbb Mth toa normakzad 

571 For k - 1 To racMarCbRlRacordCount 

572 If racMarCbReRtvass > 0 Than 

573 racMarCbRtEdt 

574 ' Tha I IS atotracbd Irom toa storad 
fitoasa scora and laptacad Mti a smal apralon 

575 sngRtoaas - CSng(racMarOsRt Rtiasa - 
1) 4 wigEpblon 

576 rac MarOaRe Rtoaaa - 

ariKsngMandfifValua 4 oigRtoaas ‘ mlhbimalFactor ‘ mgOaafadWar^t/ 
racMarCbRtUpdab 



570 



576 



Endfl 



racMaiOsRtMovahbd 

580 Naxlk 

581 ■ Insert tia TEfi^.RT racortb into toa 

582 Appkcaton. SaCpton ‘Confirm Acton Obnaa*. 

563 (t>l.Eaaoib‘INSERnNTOMAR_CLS RT(SSN.FK. 

MannalndBi OasslndKcFK. Rtoaaa ) SELECT TEMP_RT.SSN.FK, 

TEMP FIT.Mannalndax. TEMP. FIT. aasalndak_FK. TEMP.RT.Rtoasa FROM 
TEMP.RT WHERE TEMP.RT.Rtoasa > 0;‘ 

584 Appicaton. SaCpaon ‘Confirm Acton Obnaa*. 

565 sSCIasshiBTibar • racCbas'SCourtaNufrtoar.FK 

S86 s»AMOS - racCbsslAMOS.FK 

567 End II 

588 racfibnna.Mm«Rrsl 

589 If racOasa. EOF - Faba Than 

590 racCbsaMovaNad 

591 End II 

582 Er«j It ' II racManna RacordCount > 0 Than 

593 End II ‘ II (racCtam.SCoursarvbmbar.FK - stCtassNjmbar) And 

(racCbss.AMOS.FK - brAMOS) Than 

$94 hbdi 

595 End If * 



84 
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4736 

4737 

4738 

4739 

4740 

4741 

4742 

4743 

4744 

4745 

4746 

4747 

4746 

4749 

4750 

4751 

4752 

4753 

4754 

4755 

4756 

4757 

4758 

4759 

4760 

4781 

4762 

4763 

4764 

476S 

4766 

4767 

4766 

4769 

4770 

4771 

4772 

4773 

4774 

4775 

4776 

4777 

4779 

4779 

4780 

4781 

47B2 

47B3 

4764 

4765 

4786 

4787 

4788 

4789 

4790 

4791 

4792 

4793 

4794 

4795 

4796 

4797 

4798 

4799 

4800 

4801 

4802 

4803 

4804 

4805 

4806 

4807 

4806 

4809 



racItteCisAtCkna 



598 

599 Pf«par»lw AMPLrtknl dutdataflto 

600 App*aUtortS4lOp#or ‘Corttrm Acflon Queriws*, F«lse 

601 (*)1.E»»cute ‘DELETE * FROM TEMP^HT," 

602 ' Specify tie runtier at rnvinss 

603 (D1 EjbcuIo ‘INSERT INTO TEMP.FTT (SSN_FK VALLtS 

fperim lobNartnes ‘ & recManna FtooofdCoirt & •),' 

604 (D1E»cute ’INSERT INTO TEMP_FlT(SSNLFK)VAU^Sf:‘)‘ 

605 ' Specify ffie rurtor d *c1ioqI cIbsws 

606 (1)1 Exciito -INSERT INTO TEMP.FIT (SSN.FK MwInelodBJl) VAU^S 
04f«iD tctaClKSSM ‘ & recCI»ss.FtocofdC(xrt & 

607 db1 E»cuto ‘INSERT INTO TEMP.FIT (SSNLFK) VALUES C,V 

608 ' Specify Ole class cjenand 

609 (HI EjecutolNSEFTT INTO TEWP_FTr(SSN_FK) VALUES fpa/amdenwKj 

610 db1,E*culB ‘INSERT INTO TEMP_F1T ( CtasslfmocFK. SELECT 

CLASS.CkssJndex. CLASS. Ojok FROM CLASS.* 

61 1 dbl E*cute -INSERT INTO TEMP_FIT (SSNLFX) VALUES f;1;‘ 

612 Specily 0« class peoaRy 

613 (fcl.EsBcutelNSERTINTOTEMP.nTiSSALFK) VALUES rparampenafty 

614 d)1.Eaacii>B‘IFSERT INTO TEMP_FlT(ClassJni*s(.FK Fitness) SELECT 
PENALTY ClasslndBH_FK, P£N*LTY Pefialy FROM PENALTY;* 

615 d)1 Eaacii>B‘INSERTINTOTEMP_FIT(SSKLPX) VALUES f;T* 

616 DoCmd Transfer Te)d acEjfxirlFcnd. ‘Rdm1_Dab Ej^I Sp^ricabon', 

TEWP.FR. ‘C \FOMi\AnpDab\r(lT)l dar 

617 

619 ' Prepare Iw AM\ rcb7l2.(lat (tata fito 

619 (D1 Eiecuto ‘DELETE ‘ FROM 7EMP_RT,‘ 

620 d)t E»cuIb ‘INSERT INTO TEMP FTT SELECT ' FROM MAR_CLS_F»T:‘ 

621 dil Eaacute ‘ALTER TABLE TEliiF RT DROP COLUMN SSN_FK.‘ 

622 d)1 E»ojto ‘ALTER TABLE TEMP.FTT ADD COLUfcW SSN.FK text* 

623 <1)1 E»cute ‘INSERT INTO TEMP.FTT (SSN.FK) VALUES <'param fiOiess 
<lstaiil0«V 

624 (Di.E*ciifc‘SaECT‘IN70AMPU.TEMPFFICMTE1i*>_RT0R0ER8VSSN.FK 
626 <»1.E»culB‘I^SERT INTO AMPU.TEMP(SSN_FK) VALUES r:V 

626 DoCmlTransferToid acExporfued. 'R<*TC_Dab Export SpeoHcaSon-. 

A«V.TEMP. ‘C \flOMi\ArrplDaia\«»Te.dar 

627 ApptcaOoaSelOpboo -Ccrtirm AcHon Queries'. True 

628 

629 recMarlne Qoae 

630 recCktss.Cbse 

631 ' Ramore Iw created taPtos 

632 (D1 EjBCUle ‘DROP TABLE TEMP FTT.‘ 

633 (Dl.E»a*) ‘DROP TABLE AMPL_TEX4P;‘ 

634 d)1 Ejecuto -Drop Table TEH«*_RT1 

635 d)1Cbse 

636 ' RerrcM) Ore rreter from tie stats bar 

637 vwRelVaJ • SysCritdCacSysCrndRamoveMeter) 

639EndS(i) 

640 

641 

642 Pil)fec SU> Oucla_Panany(vwUDabBouid As Varlanl) 

643 OlmyarDato 

644 Dim rec As FtocorcteL reel As Recordset 

645 Dim stSQL As Sting. strConMsn As Sting 

646 Dimi As Integer 

647 Dimebi As Database 

648 

649 

650 ' Create new dass quote llte 

651 AppIcattonSefOpton -Cordlrm Acton Quenes', False 

652 

653 ' Delete Iw old penaly and dass lltes 

654 OoCmd. RtiSa ‘D^ETE ‘ FRCW PEbWLTV 

655 DoCmd.RtiSQL-DaETE-FRCWCLASy 

656 

657 ' Query generates new class <iuote 

658 DoCmj.SelWamings (False) 

658 OoCmd OpenOuery ‘qryNewQjote* 

660 (ToCmcLSeMlamings (True) 

661 

662 ' Otete any vakies < 0 

663 DoC>iij.RLtiSQL ‘DELETE ‘FROM CLASS WI^RE Quote «.0,* 

664 

665 AppicsttonSelOptlon ‘Coritm Acton Queries', True 

666 

667 ' Create Index lor tie dass table and farimt tie FY tor n>3 file 

668 Sel cb1 . Ci#TonObO 

669 sSrSO. - ‘SELECT CLASS *. SCHOOL PenatyFactor FROM SCHOOL IbrER JOIN 
CLASS ON (SCHOOUAMOS.PK- CLASS. AMOS_FK) AND (SCHOOLSCesaseUtiteor PK - 
CLASS. SCO(jfsoNtfnber_FK), • 

670 Sel rec • d)1 .OpenRecoriteeltstSQL. dbOpanOynasel) 

671 rec.MCMeLast 

672 

673 tl rec ItecardCourS > 0 Dien 

674 rec atowFirsl 

675 For I ■ 1 To rec RecordCotrt 

676 rec.Edt 

677 recICtessIndeii « 1 

676 ' Corwerts tie focal year to a two dgll nunber lor file 

679 stConntefl ■ CS»(reclRscalYaaf_PK) 

680 stConvofl . R^stComwl 2) 

661 rBClBscaIY*ar_PK • CliUtstConster^ 

682 rec. Update 

683 recMoteNetf 

664 bbidl 

685 End If 

686 

687 ' Create penalty fUe 

688 ' First u^te tie Irdes from the CLASS tebto 

689 Apptcaton-SelCIpllon ‘Coftirm Acton Queries’, False 

690 OoCiTxlQpenCXteiY ‘gryPonalylndoiC 

691 Apptcatan.S«tOptan ‘Cortirm Acton Quenes*, Trite 

692 ' Create a record sel of the P0MALTY table 

693 stSa - -SaECT • FRCM PENALTY- 

694 Sel reef - d)1.0penRscordse1(srSCL dbOpenOynasel) 

695 II lsbtd(vwUDateeound) . Ftese Tlien 

696 ' Forme! tils date lor use In tie OatoOilf fisictan 

697 varUEtateBound - Formal(varUOateBouid. ‘Illl/IWtr] 

Media' rTcdRtoessOetormnalon Page 16 

698 

699 ltrec.FtecordCour4>OTT«n 

700 rec.MowRrst 

701 For I • 1 To rec RecordConf 

702 reel. Edit 

703 ' Get report date trem class record 

704 varOato ■ rec'Ftopart34to 

705 ' Format tie report date tor lee in tie OateOiff lirctton 

706 varDete • ForTTtel(varOata. ’Illt/ll/ll‘) 

707 - Mtece tie penally Ibe dftorerce between tie hw values 

706 ' IhB rmlies tie penally Ineer. based on date 

709 recl'PerwRy - DateDifffer, wDate. varUOateBoiiid) * 
rec'PenaRyFactor \ 24 

710 reel Update 

711 rec.Movebbjl 

712 reel McnteNeid 

713 KtedI 

714 End It 



4810 

4811 
4612 

4813 

4814 
4615 

4816 
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4818 
4810 

4820 
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4823 
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4826 

4827 

4828 

4829 

4830 

4831 

4832 

4833 
4634 

4835 

4836 

4837 

4838 

4839 

4840 

4841 

4842 

4843 

4844 

4845 

4846 

4847 

4848 

4849 

4850 

4851 

4852 

4853 

4854 

4855 

4856 

4857 

4858 

4859 

4860 

4861 

4862 

4863 

4864 

4865 

4866 

4867 



4870 

4871 

4872 

4873 

4874 

4875 

4876 

4877 
4879 
4879 



4864 

4885 

4866 

4867 
4888 



4893 

4894 
480S 



4899 

4900 

4901 

4902 
4003 
4904 
4805 
4006 
4907 



4911 

4012 

4913 

4914 

4915 

4916 

4917 

4918 
4916 
4920 
4821 

4922 

4923 

4924 



4927 



4931 

4932 

4933 

4904 



4930 



715 End It 

716 

717EndSub 

718 

719Pii)k: Sub DeteteTabteO 

720 On Error GoTo OetoteTable.En 

721 

722 Dim d)1 As Datebase 

723 

724 Sel <1>1 • CurreniDbO 

725 - Delete tie teble It it atoady aidsis 

726 <l>1.TableDels.D«lete ‘PERCENTAGE- 
727DeieteTeble_Ei4t 

729 ExIISii) 

729 

7»De4eteTeble_En: 

731 Seteci Casa Err Mntoer 

732 ' TNs nuTber occus It tie PERCENTAGE table does not east 

733 Case 3265 

734 Resune Delete Table.Eai 

735 Case Etee 

736 MsgBoKEn.Descripton 

737 Ftesume DeteteTable_E)4l 

738 Ftesurre 

739 EndSetoct 

740 

741 End SU) 



MexUe modlrrparlEjpanDaa 
Code 

1 Ateibuto V8_Name • 'modtirporCjiportOate' 

2 Opton Compare Datebase 

3 Opton Ejpidl 

5 P\l3ie Sub IrrponSNAO 

6 

7 OoCmd.TrarHterTo)daclrrponFoted, ‘BNAExtrecr, •qry6NAE«8'acr. 

C AToBe RdrARdnOateXeNA w 

8 

9 EndSub 

10 

11 Pvl)bc Seb lirpoftRDlO 

12 

1 3 DoCrndTransferTedl acImporiRaod, ‘RDl *. ‘(^yMadne", 

C .\ToBeRdTARdN)ataLRD1 td 

14 

15 EndSU) 

16 

17 Pvbito Sub InporfToTargeLMOSO -(ActonQuery As Sting) 

19 

10 Cimend3t)0.Eaecuto*INSERnNTt>TARGET,MOS(CousebtaTb«r PK. 
TargeWDS^PK. MCC ) SELECT DISTINCT BNA_EXTRACT.Coi«eb4iiber_PK. 
BNA_EXTRACTTtegelMOS_PK, BN\_EXTTV«:T. MCC FROM BI^EXTRACT 

20 

21 EndSU) 

22 

23 Pvbtc Sti) Airptf^sdlO 

24 

25 OoCmcLTranslerTexl acInporlDeirn 'ArTpl_Ftes4ir. ‘AMPL^RESULT, 
CAToBeRdrtAiTfiOiteVrdrrvouL True 

26 

27 ErxtSub 

28 

29 Pibic Sib ArryiOateO 

30 Dimibl AsDetebase 

31 

32 SoKDI -CurrenObO 

33 

34 ' Prepare tie AM^ rdnuiet date fib 

35 AppicatcmSelCpttan ‘Cordittn Acton Quenes*. False 

36 dbl Ewcuto -CREATE TABLE CONSTANTS (CoetefUName TEXT. mlVaiie 

37 ' Speclty Itie flt constenl 

38 (bI.Eiecuto -INSERT INTO CONSTANTS (Cenetentteme. InlVatoe) VALUES 
(param nCortetert ‘ & FoTTsffrmPrepareAncErectieSoKerlcrrbFil & 

39 d)l.E*aito -INSERT INTO CONSTANTS (Constenrte™)VALUESr;V 

40 ' Specily tie III coratart 

41 (bl.&Bcuto -INSERTINTO CONSTANTS (Constanbtemo.lnWalue) VALUES 
( param fllConatenl ‘ & Forms'frmPrepareAndEjteajteSoAerlcJTbFil A 

42 (1)1 Eaecute INSERT INTO CONSTANTS (Constentteme) VALUES (,-);* 

43 OdCmcLTransferTeid acEjbodFued, ‘Rdi\_Date Eibort Speciticaton-. 

CONSTANTS. ‘C.'VTaBeRdTiAiTpOataViln.dar 

44 Appf (tetton.SelCpIlon -Coillnn Acton (^snes*. True 

45 

46 ' Rerrowe tie created table 

47 d) 1 Ewcuto -DROP TABLE CONSTANTS.* 

48 dn.Ctoee 

49 EndStb 

50 

51 Plblc Stb 0f)OrtRD3O 

52 

53 DoCmd. TranslerTed acE)b«lFbBd, ‘ExporlR03Rto‘. ‘dyHD3Rto‘, 
C.\Toe«RDM>FtirTOate\R03. W 

54 Apptcaton SeiOptton ‘Conllnn Acton Queries', Falsa 

55 (XiCrrtlQpenOuery *(^ Update AssiTmenTType* 

56 DoCmd OpenOuery ‘c^ApperdResiin’oAsbgnrTerr 

57 Appicaton.SelCptOn ‘Ccnllrm Acton Queries', True 

58 

59 

60 EndSU) 

61 

62 Pibic Sub ArdUveDebO 

63 

64 Dim wTodiysOate 

65 Dim steSQL As Sting 

66 

67 varTodaysOate « Date 

68 

69 ' Formal tw date 

70 iterTodaysOato ■ FormaHvarTodaysOate, *yyyymmd<r) 

71 - Convert me dale tilo a nurbar 

72 varTodaysOate • CLng(vterTodaysDate) 

73 

74 ' Archive tie appicabto data 

75 DoCrrd.ftjiSQL ‘INSERT INTO MARNEjeSJGhLAPCHVE SELECT DISTINCTRCW 
MARIf€.S»LPK. MARINELName. MARbtInitals. MAFIbC. Gender. 
MAFtbE.DnverUceraa. MAFtNC.SO(. MARHC.TrainngConpany. 

MARTIN MCRD.Code, MAflIbE Pthimber, MAFUC.ClItensnip, MAR8E GradDate. 
UAFBbC.SwllrOial. MAFBbE.ObtgiBon. MAF9FC.Age, MARlbE. Educaton. 

MARbE Hghesavteti. MARIbE.MentalAbilly. MAFtbE OearanceEsL 
MARINE Hai^ MARNE Vision. MARNE. Color Perceplon. MARNE.EtncGroup. 
MARNE.DLA8, MARNtEOPT, MARNE OtstedCode, MARNE Typing; MARIEEL 
MARNEMM. MARNE CL. MARNE GT. MARfE Corrponerl. MARIE PEF. 

MARNE DvtCviviclian. MARNE RSN. MARNEAFAOBO. 

ASSIGFMENT.CoirsaNlurTber. ASSIGNMENT AMCS. ASSIGNMENT. MCC. 
ASSIGt*eNT.CtessMmb«r, ASSIGNMENT R»por®ate, ASSICaMEf^.FrscaTyear. 
ASSICNMENT.Ass>9TnBnn'ype FROM MARNE INbER JON ASSIGNNENT ON 
MARNE.SSN.PK - ASSIGMENT.SSN.FK WHERE ASSIGMENT ReporlDato < ‘ & 

76 

77 - Delete tie applcable (tala horn tw Marine and Asdgnmani tables 

78 DoCmdRaiSO. ‘DELETE DISTTNCTROW MARNE *. ASSIGMENT ‘ FROM MARIE 
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4S39 78 OoClTrifO>SQL•OEl£7EOIS^n^<r^O« ASSIGNiCW.'TOMMArtNC 

4M0 l^f£RJOI^tASSI^ME^^'aslM/M^£SS^LPX-ASSlG^iuC^^'SSN_FKW»^RE 

4M1 ASSIG>««Nrr Repo'C>*k><‘& wTodaysOttoA- 

4942 79 

4943 80 Selact Case unassignecf Mu mes from tio daUbu«7*, 

4944 vbYosNo * 'OotoB Lh»s»gn*d ^^ln»s•> 

4945 81 OM6-|fy<Hisclck0d 

4946 82 ' Detobs eniriM in lh« M&nn« (abb awlhout a corresponcing 

4947 enfry m Bb Asaignmant table 

4948 83 DoOMfta»SClL -DELETE 0IST1NCTOCWIM4R)I^* ASSI(3^WTSS8LFK 



4949 mOMMAR^€ LEFT JON ASSIGNMENT ON MAn^eSSN.PK. ASSIG^MENTSSN FK 

4950 WFERE(((ASSlGf«.ENT-SSN_FK)lsNuD);' 

4951 84 Caa»7-|fnoscickad 

4952 as -rbacloibken 

4953 86 EndSolect 

4954 87 

4955 88 End Sub 
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